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Köszöntöm 


a tv-nézőket és a könyv olvasóit! Szokatlan vállalkozásba kezdett a 
Neumann János Számítógéptudományi Társaság, a SZÁMALK és a 
Magyar Televízió, tanfolyamsorozatot indít a számítástechnika népsze- 
rűsítésére és főleg tanítására. A szó nemes értelmében népoktatásra 
vállalkozunk, arra, hogy mindazok, akik eddig nem kerültek vagy nem 
kerülhettek közelebbi kapcsolatba a számítástechnikával, a televízió 
segítségével szerezhessék meg a legfontosabb ismereteket. Indul a 
Tv-BASIC, s a tanfolyam végén — először a Magyar Televízió történe- 
tében — a szorgalmas néző vizsgát tehet, és sikeres vizsga esetén bizo- 
nyítványt kap. 

A tanfolyam anyagát és a könyvet Kocsis András, a SZÁMALK mun- 
katársa állította össze, a kéziratot, majd az ebből készült forgatóköny- 
vet az NISZT tagjaiból, a SZÁMALK és az MTV munkatársaiból álló 
munkabizottság vitatta meg és fogadta el. 

Nyilvánvalóan tökéleteset szerettünk volna alkotni, ám nagyon opti- 
mistának kellene lennünk, hogy hihessünk, ez sikerült is. Reméljük, 
hogy a tv-sorozatot és a könyvet is a néző—olvasó könnyen megérti. 
A feltétlenül szükséges BASIC ismeretek mellett olyasmit ís bemuta- 
tunk, ami nemcsak a kezdők, de a már bizonyos ismeretekkel rendelke- 
ző szakemberek érdeklődését is felkelti. 

Amit elmondunk, ahhoz feltétlenül elegendő, hogy bárki több-keve- 
sebb sikerrel programozni tudja a munkahelyi vagy az otthoni számító- 
gépet. 

A tanfolyam elsősorban azoknak a felnőtt — ha szabad azt mondani, 
hogy talán nem is túl fiatal — szakembereknek szól, akiket a személyi 
számítógépek programozása érdekel, de eddig nem volt alkalmuk ezt a 
tudományt" elsajátítani. Mindannyian tudjuk, hogy a mai egyetemis- 
ták, középiskolások, de talán az általános iskolai tanulók nagy része is 
tudósa" a számítástechnikának, reméljük, azért nekik is tudunk újat 
mondani. I 

A BASIC-nek — bármennyire is szabványosított programozási 
nyelv — különböző típusú gépeken különböző változatai vannak for- 
galomban. Mi úgy gondoltuk, hogy a mikroszámítógépes klubokban, 
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iskolákban, művelődési és ifjúsági házakban, általában mindazokon a 
helyeken, ahol szabadidőben számítógéppel lehet dolgozni vagy szóra- 
kozni, leginkább Commodore—64, HT—1080Z, PRIMO vagy Sinciair- 
gépek találhatók. Ezért e könyvben az ezeken a gépeken használt 
BASIC utasításokat mutatjuk be. Minden új utasítást példákkal illuszt- 
rálunk. A feladatokat igyekeztünk változatosan összeállítani. Nem is 
egyszerű elmemunka lesz például a Commodore-mintaprogramot átírni 
Sinclair-gépre. Arra számítunk, hogy a tanfolyam nézői erre a , kaland- 
ra" is vállakoznak. Itt hívjuk fel figyelmüket a Mikroszámítógép 
Magazin 1985. évi számaira, amelyekben bőségesen szeretnénk további 
példákat bemutatni a tanfolyam nézőinek. 

A könyvet, az adást kísérletnek szánjuk, az eredményt a vizsgák 
mutatják meg, illetve a nézők véleményéből szeretnénk kiszűrni. Ezért 
nemcsak várjuk a véleményeket, de kérjük is, hogy a tanfolyam ismét- 
lésekor, illetve a következő tanfolyam (Számítástechnikai alapismere- 
tek) összeállítása során a javaslatokat már figyelembe tudjuk venni. 

Szeretnénk a tanfolyam anyagát később is hasznosítani, ezért azt 
videokazettán a tankönyvvel együtt árusítani fogjuk. Ugy véljük, hogy 
hasznos segédeszköze lesz a pedagógusoknak, de a vállalatok, intéz- 
mények belső tanfolyamaikhoz is jól tudják használni. 

E nagy vállakozásért köszönetet mondok az MTV Ifjúsági és Oktatási 
Főosztály munkatársainak: Kovács Béla, Kelemen Endre, Gál Mihály, 
Albert József, Hegyi István elvtársaknak, az anyag kidolgozását támo - 
gató, lektorálását és megvitatását, valamint a tv-sorozat bírálatát vállaló 
bizottság tagjainak: Ada-Winter Péternek, Faragó Sándornak, Meskó 
Andornak, Pál Lászlónak, Páris Györgynek, a könyv gondozásáért 
felelős Pálfy Adorjánnak, a könyv gyors elkészítéséért a Dabasi Nyomda 
dolgozóinak és nem utolsósorban a szerzőnek, Kocsis Andrásnak. 

Végül előre megköszönöm a néző—olvasó szíves közreműködését, vé- 
leményét és javaslatait, amelyeket — mint említettem — megpróbálunk 
a további adásokban és könyvekben minél hamarabb hasznosítani. 

Kovács Győző 
az NSZIT főtitkára 


ELŐSZÓ 


Manapság, amikor a személyi számítógépek robbanásszerűen terjednek 
hazánkban, érthető módon egyre többen szeretnék megtanulni a mód- 
ját, hogyan lehet ezeket a gépeket minél jobban hasznosítani akár a gaz- 
dasági munkában, akár a magánélet különböző területein. A számítás- 
technika fejlődése úgy hozta, hogy valamennyi mikro- és személyi 
számítógép programozható BASIC nyelven. Ez természetesen nem 
véletlen. A BASIC nyelv a magyar származású John G. Kemeny munká- 
jának eredményeként húsz éve indult el hódító útjára. Ez az egyszerű, 
könnyen megtanulható és széles körben alkalmazható nyelv rendkívül 
népszerű lett. Éppen ezért vált a személyi számítógépek alapnyelvévé. 
Ennek köszönhetően a BASIC nyelv egy általános eszköz, amellyel 
bármely személyi számítógépet lehet használni. Megjegyezzük, hogy 
az egyes géptípusok BASIC-jei között kisebb-nagyobb eltérések, ,,táj- 
szólások" vannak. Sorozatunkban az ún. , közös rész"-t igyekeztünk 
tárgyalni, amely minden gépnél azonos. Emellett elkerülhetetlen, hogy 
a nyelv eltérő sajátosságait is feltárjuk az egyes megoldásoknál. 

A BASIC nyelv alkalmazásához a számítógép használatát is meg kell 
ismerni, ez viszont már kevésbé általánosítható. Ez is szükségessé teszi, 
hogy konkrét géptípusokon mutassuk be a nyelvet. Úgy gondoljuk, hogy 
a ma Magyarországon legelterjedtebb négy géptípus, a Commodore—64, 
a HT—1080Z, a PRIMO és a Sinclair-gépek felelnek meg a legjobban 
ennek a célnak. Mivel a Commodore—64 gépből van a legtöbb, köny- 
vünkben ez az alapgép, a többi gépre vonatkozó megállapításokat 
megkülönböztető jelzéssel látjuk el. A HT gépe jele: a, a PRIMO-é 4, 
a Sinclair-gépeké pedig e jel, amely mindig a megfelelő szöveg kezdetén 
jelenik meg. 

A tanuláshoz segédanyagunkat szánjuk segítségül. A fejezetek a soro- 
zat tagolódását követik: tartalmazzák az egyes részekben tárgyalni 
kívánt elméleti anyagot és a feladatok megoldási lépéseit. A tv-ben 
látható műsor csak akkor segíti a BASIC nyelv gyors megtanulását, ha 
a kedves Néző a műsor előtt már elolvassa az elméleti részt. 

A fontosabb fogalmak magyarázatát az 1. függelék tartalmazza 
ábécérendben, ezenkívül a tárgymutató segíti a fogalmak keresését 
a könyvben. A 2. függelékben találhatók a számítógép és a nyelv hasz- 
nálatához szükséges kulcsszavak (parancsok, függvények és utasítások, 
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valamint rövid, tájékoztató jellegű leírásuk). Itt utalunk arra is, hogy 
az illető utasítást melyik oldalon tárgyaljuk. Természetesen könyvünk 
nem tartalmazza az összes parancs, függvény és utasítás leírását, mert 
erre itt nincs lehetőségünk. Ha olyan utasítást vagy függvényt kíván 
alkalmazni, amelyről itt nincs szó, javasoljuk, hogy a gép kézikönyvét is 
lapozza fel. - 

A 3. függelékben a gyakrabban előforduló hibákat és javításukat, 
valamint a négy gépre vonatkozó programjavítási lehetőségeket részlete- 
sen ismertetjük. 

A Commodore-gép állománykezelési műveletei a 4. függelékben talál- 
hatók. 

Az 5. függelékben példaként a Commodore-gép kódtáblázatát adjuk 
közre, ez a , profi" programozáshoz jól alkalmazható. Az egyes gépek 
programozói kézikönyvében a megfelelő táblázat megtalálható. 

Ugyancsak a függelékben kaptak helyet az egyes feladatokat megoldó 
programok listái. Ezeket csak végső esetben érdemes használni, inkább 
saját megoldásokra törekedjünk. 


1 BEVEZETÉS 


Ismerkedés a számítógéppel. Az első programok elkészítése 


Ez az első alkalom, hogy számítógépet használunk. Van aki tartózko- 
dóan, van aki kíváncsian közelít a géphez. Szeretnénk megértetni, hogy 
nem kell előismeret vagy különleges képesség ahhoz, hogy valaki értel- 
mesen tudja használni a számítógépet. Már az első műveletekkel meg- 
próbáljuk ezt az állítást bizonyítani. Remélhetőleg mindenki hamarosan 
érezni fogja, hogy ha nem is magas fokon, de uralja a gépet. Ne kesered- 
jen el senki, ha valamilyen fogalmat nem ért meg első hallásra. Inkább 
a műveletekre figyeljen, és abból próbálja megmagyarázni, hogy mi is 
történik. Egyébként megjegyezzük, hogy a továbbiakban minden itt 
felmerülő fogalmat részletesen és teljeskörűen megmagyarázunk. 
Először is nézzük meg, hogy milyen eszközök szükségesek a progra- 
mozáshoz! Kell egy számítógép, amely a műveleteket végzi el, továbbá 
egy olyan eszköz, amelynek segítségével meg tudjuk mondani a számító- 
gépnek, hogy mit csináljon, s végül egy kijelző eszközre is szükségünk 
van, amelyen az eredmények megjelennek. Egy írógép-billentyűzethez 
hasonló berendezésen lehet jeleket beírni a számítógépbe, a kijelző 
eszköz pedig egy tv-készülék (1. ábra). Ez a programozáshoz nélkülöz- 
hetetlen minimális eszközkészlet. 
Kapcsoljuk most be az eszközeinket; először a tv-t, majd a gépet. 
Kisvártatva megjelenik egy üzenet a tv-n, amely mutatja, hogy dolgoz- 
hatunk. Az üzenet utolsó szava a 


READY 
m A HT gépen 


READY? 
2 


(nyomjuk le a NEW LINE gombot és akkor a képernyő alján je- 
lenik meg a READY üzenet) 
A a PRIMO-nál pedig 
Ok 
jelenik meg. 


A kiírás alatti sor elején az ún. helyőr (pozíciómutató, kurzor; angolul 
cursor) villog. 
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Kijelző (tv) 


Tápegység 


[Számítógép 
és billentyűzet 


1. ábra. A programozáshoz szükséges eszközök 


e A Sinclair-gépeknél a képernyőn a 
9 1982 Sinclair Research Ltd. 


felirat olvasható, majd az ENTER gomb lenyomása után a fel- 
irat eltűnik és helyette a képernyő alján bal oldalt egy K betű 
(K helyőr) jelenik meg. 

Ha ezektől eltérő kiírás olvasható, akkor hiba van. 

Az üzenet és a villogó helyőr azt jelenti, hogy a gép készen áll BASIC 
programok befogadására, végrehajtására stb. Írjuk most be az alábbi szö- 
veget: § 
PRINT "ITT VAGYOK!" 


és nyomjuk lea RETURN gombot. 


nm A HT gépen a beírás végén a NEW LINE gombot kell lenyomni, 

A a PRIMO-nál a beírás kezdete előtt a nagybetű írásához szükséges 
UPPER gombot nyomjuk le, s a sort itt isa RETURN-nel zár- 
juk le. 


Felhívjuk a figyelmet, hogy az idézőjelek és a felkiáltójel az 1 és 2 fel- 
iratú gomb felső részén találhatók, ezért csak akkor jelennek meg a kép- 
ernyőn, ha a SHIFT billentyűt előzetesen lenyomjuk, és utána ütjük le 
a kívánt jel gombját. 


e A Sinclair-gépeknél a PRINT szót nem betűnként kell! begépelni, 
hanem alulról a harmadik sor jobb szélső billentyűjét kell le- 
nyomni, s a gomb feliratának megfelelően megjelenik a PRINT 


szó. A PRINT után újra villog a helyőr, de most már nem K, 
hanem L helyőr. Ez azt jelenti, hogy most betűket, számokat és 
egyéb írásjeleket lehet beírni, vagyis a billentyűkön lévő betűk 
, élnek". Alaphelyzetben a kisbetűk, de ha a CAPS SHIFT és 
CAPS LOCK gombot együtt lenyomjuk, ettől kezdve nagybetű- 
ket írhatunk. Az idézőjelet úgy lehet kiírni, hogy lenyomjuk 
a SYMBOL SHIFT billentyűt és a P gombot. A ! jelet a SYMBOL 
SHIFT és az 1 gomb (piros jel!) lenyomásával írhatjuk ki. A be- 
írás végén az ENTER gombot kell lenyomni. Hatására az alsó 
sorból eltűnik a szöveg. 


Ha eltévesztjük a gépelést, ne keseredjünk el, nyomjuk le a 


RETURN (4 PRIMO-nál is!) 
ma NEW LINE 
e ENTER 


gombot és kezdjük elölről. Hiba esetén mindig megjelenik egy hiba- 
üzenet, ezzel azonban most még ne törődjünk. 
Ha hibátlanul beírtuk a fenti szöveget, akkor egy sorral lejjebb meg- 
jelenik az 
ITT VAGYOK ! 
szöveg. 
Mi ennek a magyarázata? 


e Megjegyezzük, hogy a Sinclair-gépeknél a szöveg a képernyő 
legfelső sorában jelenik meg. A képernyő alján pedig több jel 
látható, amelyek az elvégzett műveletre vonatkoznak. Ebből 
számunkra az 

OK 


a legfontosabb, amely azt jelenti, hogy a művelet , oké". Ez- 
után ismét meg kell nyomni az ENTER gombot, hogy vissza- 
térjen a K helyőr. 

A begépelt sorral utasítást adtunk a számítógépnek, hogy írja ki 
az ITT VAGYOK! szöveget, és a gép ezt végrehajtotta. Az erre vonat- 
kozó utasítást a PRINT szóval közöltük a géppel, a kiírandó szöveget 
pedig idézőjelbe tettük. Ez jelzi a gépnek, hogy mit kell megjelenítenie. 
Próbáljuk meg más szövegek kiírását is! 

Például 
PRINT"GABOR" 
PRINT7EZ JOL MEGY!" 


Ne felejtsük el minden sor (vagy utasítássor) begépelése után a 


RETURN, 
3) NEW LINE, 
e ENTER 
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gombot lenyomni! A gép csak akkor hajtja végre az utasítást, ha ezt 
az ún. sorzáró billentyűt lenyomtuk. Erről úgy győződhetünk meg, 
hogy megnézzük, hol a helyőr. Ha a helyőr az utolsónak begépelt jel 
után villog, akkor nem nyomtuk le. 

Most egy más jellegű utasítássort gépeljünk be: 


PRINT 6-8 


és nyomjuk le a sorzáró billentyűt. A 6 és 8 közötti ún. csillagjel 
a BASIC nyelvben a szorzás jele. A helyes begépelés után a gép a kö- 
vetkező sor elejére kiírja azt, hogy 
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Nyilvánvalóan arra utasítottuk a gépet, hogy a 6 "8 szorzat eredményét 
írja ki. 

Figyeljük meg a lényeges különbséget az előző példához viszonyítva: 
idézőjelet nem írtunk! Ha a szorzatot idézőjelbe tesszük, akkor a kiírás 
eredménye más lesz. 


PRINT"6 87 
6:8 


Ha az idézőjeleket elhagyjuk, a gép először elvégzi a kijelölt számtani 
műveletet, majd kiírja az eredményt. Próbáljuk meg ezt az utasítást más 
számokkal is! 

A fenti két feladatban a számítógépet utasítottuk valamilyen művelet 
elvégzésére. Amikor idézőjelek közé írt szöveg kiírására adtunk utasí- 
tást, akkor lényegében egy műveletet hajtott végre a gép. A számolási 
műveleteknél pedig előbb a gépnek ki kellett számítania az eredményt, 
majd a következő lépésben ezt ki kellett írnia. A lényeg tehát az, hogy 
mi a gépet utasítottuk valamilyen művelet végrehajtására és az elvégezte. 

Látható, hogy ilyen módon a számítógépet úgy lehet használni, mint 
egy kalkulátort, ezért az ilyen használatot kalkulátormódnak is nevezik. 
Ez a mód azonban lényegesen több szolgáltatást tud nyújtani a program- 
készítéshez, mint amit itt bemutattunk, ezért a neve is az általánosabb 
célt megjelölő közvetlen mód. (Erre később még visszatérünk.) 

Oldjunk meg egy nagyon egyszerű feladatot! 

Írassuk ki a számítógéppel két szám összegét és szorzatát. Legyen 
a két szám 6 és 8. Jelöljük a számokat A-val és B-vel: 


A-6 
B -—8 

Ebből következik, hogy az összeg kiírásakor az 
AtB 


műveletet, a szorzat kiírásakor pedig a 
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A:rB 


műveletet kell elvégezni. 
A feladat megoldásához négy műveletet kell elvégezni: 


1. Az A értéke legyen 6 

2. A B értéke legyen 8 ; 

3. Számítsa ki az AB összeget, és az eredményt írja ki 

4. Számítsa ki az A t B szorzatot, és az eredményt írja ki 

Valójában ez a feladat is megoldható az előzőleg bemutatott módon, de 

ennek a módszernek korlátai vannak. Ha ez a feladat még nem is lépi 

át ezeket a korlátokat, előbb-utóbb találunk olyan nagyobb feladatot, 

amely már biztosan nem oldható meg így. Ezt a másfajta feladatmegol- 

dást azonban könnyebben megérthetjük egy kisebb feladaton. 
Mindenekelőtt azt nézzük meg, hogyan érhetjük el, hogy egy A vagy 

B nevű változó valamilyen értéket kapjon. Erre a 


LET 


szó való. A szó után meg kell adni a változót és az értéket egyenlőség- 


jellel összekapcsolva: 
LETA-6 


A gép végrehajtja ezt az utasítást, és eredményeként az A értéke 6 lesz. 


e A Sinclair-gépen a LET szót nem betűnként kell begépelni, ha- 
nem az L gombot kell lenyomni (a K helyőrnél). 

A feladat megoldására tehát új módszert kell keresnünk. Ez a módszer 
a műveletek programban való leírása. Ha nem egy műveletet akarunk 
a géppel végrehajtatni, akkor az utasításokat a végrehajtás sorrendjében 
sorszámozva gépeljük be: 

19 LET A-6 

29 LET B-8 

39 PRINT 6t6B 

49 PRINT AxB 


Az utasítások elé írt számok mutatják a végrehajtási sorrendet. Először 
a legalacsonyabb sorszámú: utasítást kell elvégezni (10), majd a követ- 
kező sorszámút (20) és így tovább. 

Ne felejtsük el, hogy minden utasítás után le kell nyomni a sorzáró 
billentyűt! A következő utasítás csak így kerül a következő sorba 
a képernyőn. 

Már most jegyezzük meg, hogy amikor változóknak értéket adunk, 
akkor az egyenlőségjel nem a hétköznapi értelemben vett , ténymegálla- 
pítás", hanem az egyenlőségjel bal oldalán álló változót egyenlővé teszi 
a jobb oldalon álló értékkel. 


17 


e A Sinclair-gépeknél minden sor begépelése után a beírt sor 
a képernyő felső részére kerül át a legfelső, még üres sorba. 
Az utolsónak beírt sorban a szám után - jel látható. Ez csak 
arra figyelmeztet, hogy ez az utolsónak beírt sor. 


Ha begépeltük a fenti négy sort, akkor jól láthatjuk, hogy sem az egyes 
sorok begépelésének végén 


(a RETURN, 
m NEW LINE vagy 
e ENTER 


lenyomása után), sem a teljes feladat begépelése után nem történik 
semmi. Ez azért van, mert most az utasítássorok elé sorszámot is írtunk. 
Az ilyen sorokat a gép a begépelésnél nem hajtja végre, hanem csak 
együttesen az egészet. Külön meg kell viszont , mondani", hogy mikor 
kell a műveleteket elvégezni. Ehhez be kell gépelni a 


RUN 
szót 
e (a Sinclairnél csak az R betű gombját kell leütni), 


le kell nyomni a sorzáró gombot, ezután a számítógép a műveleteket el- 
végzi. Ha hibátlanul gépeltük be a négy sort, akkor a következő ered- 
mények jelennek meg a képernyőn : 


14 
48 


Ha valamelyik sort tévesen gépeltük be, írjuk be még egyszer. A végre- 
hajtás sorrendje ugyanis független a begépelés sorrendjétől, egyedül 
a sorszámtól függ. 

A RUN hatására a számítógép elvégzi a műveleteket. Ilyenkor nem 
egyetlen, hanem négy művelet elvégzésére adtunk utasítást. 

Gépeljük be ismét a RUN szót, nyomjuk le a sorzáró gombot, és fi- 
gyeljük, mi történik! Az eredmény ugyanaz, mint az előbb: 


14 
48 


A számítógép megint végrehajtotta a megadott utasításokat anélkül, 
hogy az utasításokat újra begépeltük volna. Akárhányszor is írjuk be 
a RUN szót, az eredmény nem változik. Ebből az a következtetés von- 
ható le, hogy a sorszámozott utasítássorokat a számítógép , megjegyzi", 
és ezek akárhányszor végrehajtathatók. Egy ilyen sorszámozott utasítás- 
sorozat egy program. A program eddig megismert néhány jellemzője: 


— sorszámozott utasításokból áll, 
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— végrehajtását a RUN szóval lehet kezdeményezni, ahányszor a fel- 
használó kívánja, 
— a számítógép , megjegyzi". 


A kiírás formailag nem a legszebb: nem lehet tudni, hogy melyik érték 
mit jelent. Ha valaki nem sajnálja a fáradságot, akkor értelmesebbé 
teheti úgy, hogy az érték elé kiíratja az első esetben az 


At B- 
a második esetben az 
A :B—- 


magyarázó szöveget. Ezt úgy lehet elérni, hogy a PRINT szó után idéző- 
jelek közé írjuk a fenti két szöveget a megfelelő utasítássorban. Ezután 
viszont még az értéket is ki kell írni. Ha egy sorba több dolgot akarunk 
kiíratni, akkor ezeket pontosvesszővel kell elválasztani. Ezek szerint 
a módosított műveletsorozat (program) a következő lesz: 


íg LET A-6 

eg LET B-8 ; 
39 PRINT"AHB-"FAFB 
48 PRINT"AXB-":AKB 


A. A PRIMO gépnél a 30-as és 40-es sorszámú utasítássorban a ; el- 
hagyható. 


A módosítást az új sorok begépelésével hajthatjuk végre. Ekkor a ko- 
rábban beírt azonos sorszámú sor elvész. 

Oldjunk meg egy újabb példát! Öt szám átlagát kell kiszámítani és 
az eredményt kiírni. Legyen az öt szám: 


mmgIog 

118888 LEGARA  HGGRRL LEGRRB / 

9HN 00 
NK 


Mint ismeretes, az átlagot úgy kell kiszámítani, hogy a számokat össze- 
adjuk: 


S — B4CtDtEtF — 6-71-8-1-121-2--5 
és az Összeget elosztjuk a tagok számával: 
A — S/5 


Eddigi ismereteink szintjén a feladat könnyen megfogalmazható számító- 
gép-utasításokkal. Először a változók értékeit kell beállítani, majd 
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az összeget kell kiszámítani. Vegyük észre, hogy itt nem elég csupán 

összeadni az öt számot, mert az összeget meg is kell őrizni az átlag- 

számításhoz. Tehát egy újabb változót kell bevezetnünk, és az összeget 

értékeként megadnunk. Ez az S változó. Az átlagra is szükségünk van, 

ezért az S értékét 5-tel elosztjuk (erre szolgál a / jel), és az A változót 

a hányadossal tesszük egyenlővé. A kiíráshoz pedig az A-t használjuk fel. 
Végül is az alábbi műveleteket kell elvégezni: 


. B értéke legyen 6 

. C értékelegyen 8 

. D értéke legyen 12 

. E értéke legyen 2 

. F értékelegyen 5 

. S (összeg) értéke legyen B--Ct-D1-Et-F 
. A (átlag) értéke legyen S/5 

Írja ki A értékét 


ONOUNRON — 


Joggal merül fel az olvasóban, hogy most miért választjuk szét például 
az átlag kiszámítását és kiírását. Az előző példákban ezt egyetlen műve- 
letben végeztettük el a géppel. Azért célszerűbb ez a módszer, mert ha 
például a szórást is ki kellene számolni a feladatban, vagy más számítás- 
nál fel kellene használni az átlagot, akkor az itt bemutatott módszer 
szerint nem kell minden egyes felhasználásnál külön kiszámítani, hanem 
csak az értékét átvenni. A korábban bemutatott módszer szerint az átla- 
got minden felhasználásnál ki kellene számítani. 

Ezek után hozzá is kezdhetnénk az utasítássorok begépeléséhez, de 
valamit szem előtt kell tartanunk. Az előző négy műveletsort (program) 
a számítógép még őrzi. Most viszont egy más feladat műveleteit akarjuk 
begépelni, az előzőekre már nincs szükségünk. Mit tegyünk? Azt már 
láttuk, hogy ha egy olyan utasítássort gépelünk be, amelynek a sor- 
száma megegyezik egy méglévőével, akkor csak az újonnan begépelt 
utasítássor marad meg. Ha tehát az új feladat utasítássorait ugyan- 
azokkal a sorszámokkal gépeljük be, mint az előzőekét, akkor az előző 
utasítássorokat , töröljük". Ez célravezető megoldás, de sok hiba- 
lehetőséget tartalmaz. Mi van akkor, ha a másodiknak beírt program 
kevesebb utasítássorból áll, mint az előző? Mi van akkor, ha az új prog- 
ramban nincs olyan sorszám, mint ami az előzőben volt (pl. 25)? Ha 
ugyanis az előző program valamelyik utasítássorát nem töröljük, akkor 
az megmarad, az új program része lesz, és ezt zavarhatja. Ez a megoldás 
tehát sok veszélyt rejt magában. Szerencsére van rá lehetőség, hogy 
elkerüljük. 


Ha a 
NEW 
szót begépeljük, 
20 


e a Sinclair-gépeknél az A betű gombját nyomjuk le és a sorzáró 
billentyűt, 
a meglévő program megszűnik, vagyis a NEW hatására a gép törli (elfe- 
lejti) a meglévő programot, és ezután lehet kezdeni az új begépelését. 
Esetünkben ez a következő lesz: 
19 LET 
23 LET 
39 LET 
39 LET 
s8 LET 
G6A LETT 
7O LET 
398 FRINT 
A RUN begépelése után a számítógép végrehajtja a program műveleteit 
(ha jól gépeltük be őket), és kiírja az átlagot. Ezt a programot is akár- 
hányszor végre lehet hajtatni, az eredmény mindig ugyanaz lesz. 

Mi történik viszont akkor, ha azt akarjuk, hogy minden esetben más 
legyen az az öt szám, aminek az átlagát ki akarjuk számoltatni? Ilyen- 
kor minden végrehajtás előtt meg kell adni azt az öt számot, aminek 
az átlagát ki kell számolni. Hogy oldható ez meg? Már ismerünk rá egy 
megoldást. Eszerint az első öt sort át kell írni az új számértékeknek 
megfelelően. Ha például azt akarjuk, hogy B 115 legyen, akkor az első 
utasítássort így kell begépelni: 


10 LET B—115 


és így tovább. Ez meglehetősen fárasztó, és a gépelés eltévesztése is sok 
hibát okozhat. Ebben az esetben is van a BASIC-nek olyan lehetősége, 
amely ennél egyszerűbb rmnegoldást eredményez. Kiadhatunk ugyanis 
olyan utasítást, hogy a gép a billentyűzeten begépelt értéket adja meg 
egy változónak. 

Hogy ezt jobban megértsük, töröljük ki a meglévő programot a NEW 
begépelése és a sorzáró billentyű lenyomása segítségével. Írjuk be 
az alábbi programműveleteket: 


rzunmanam 
1. OGGGALL VOGA LTAL ! ERR (KR ! ERR 1) 


DIVDUN mn 00 


ha 
[dj 


10 INPUT B 
20 PRINT B 
e A Sinclair-gépeknél az INPUT szót az I betű, a PRINT szót 


a P betű lenyomásával írhatjuk be. 
Írjuk be a RUN szót is a végrehajtáshoz. Azt fogjuk látni, hogy a gép 
a következő sor elejére kiír egy kérdőjelet: 
? 
Ez a 10-es sorszámú utasítássor hatása, és azt jelenti, hogy a gép valami- 
lyen érték begépelésére vár. A program végrehajtása mindaddig fel- 
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függesztve marad, amíg be nem gépelünk egy értéket. Írjunk be egy 
számot: ; 


115 


2 ze 


és nyomjuk le a sorzáró billentyűt. A 10-es sorszámú utasításban lévő 
B változó értéke 115 lesz, és a program folytatódik. A folytatás egyet- 
len műveletből áll, a B értékének kiírásából: 


115 


Ezt a gép el is végzi. 

Az INPUT szó tehát azt eredményezi, hogy a program végrehajtása 
az INPUT-ot tartalmazó utasítássornál leáll, és a gép mindaddig vár, 
amíg be nem gépelünk egy értéket. Ezt az értéket az INPUT után írt 
változónak adja, és a végrehajtás folytatódik. 

Ezzel lehetővé válik, hogy minden végrehajtáskor új adatokat adjunk 
meg. Az adatokat a billentyűzeten kell begépelni. 

Most már láthatjuk, hogy az átlagszámító feladat első öt sorát ki kell 
cserélni, és mindegyiket egy-egy beolvasó utasítássorrá kell átalakítani. 

A NEW művelet végrehajtása után gépeljük be a programot még egy- 
szer, de most már adatbeolvasó utasítássorokkal: 


ig INFUT B 

z3 INPUT C 

32 INPUT 6 

4á9 INFUT E 

38 INPRUT F 

68 LET S-BtCtFDHFEFF 
70 LET A-S/5 

89 PRINT A 


Az utolsó három sor változatlan maradt. 

Hajtsuk végre most a programot többször egymás után! Látni fogjuk, 
hogy minden alkalommal új adatokat adhatunk meg, és az eredmény is 
eszerint alakul. 

Ismereteink alapján meg lehet oldani az előző (összeg, szorzat) fel- 
adatot is úgy, hogy az A és B értékét a billentyűzetről adjuk meg min- 
den esetben. 

Végül nézzünk egy játékosabb példát! Próbáljuk ki, mennyire tudunk 
fejben szorozni 1 és 12 közé eső egész számokat. Építsük fel úgy a fel- 
adatot, hogy a gép írjon ki két, 1 és 12 közé eső egész számot (A és B), 
szorozzuk őket össze fejben, és gépeljük be az eredményt. Ezután a gép 
írja ki a pontos eredményt. Így ellenőrizni tudjuk, hogy jól számol- 
tunk-e. 

Milyen műveleteket kell végrehajtani? Először is a két számnak 
(A és B) 1 és 12 közötti egész értéket kell adni (pl. A— 4, B— 12), majd 
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ezeket ki kell írni, hogy elolvashassuk. Ezután nekünk kell , dolgozni". 
Ki kell számítani a szorzatot, és be kell írni. Vagyis a két szám kiírása 
után a gépnek be kell olvasni a mi eredményünket. Ezek után a gép 
kiszámítja a helyes eredményt, és ki kell írni. Lépésekre bontva a követ- 
kező műveleteket kapjuk: 


1. A értékelegyen 4 

2. B értéke legyen 12 

3. Írja ki A-t 

4. Írja ki B-t 

5. Olvassa be a szorzatot (C) 

6. Szorozza össze A-t és B-t (D) 
7. Írja ki a szorzatot (D) 


A műveleteket átalakítjuk BASIC utasítássorokká, és az előző program 
törlése (NEW szó) után gépeljük be. 


19 LET A-4 

29 LET B-1e 

39 PRINT AR 

49 PRINT B 

538 INPUT C 

56g LET 0-AKB 

79 PRINT"SZERINTEM: ":D 


Hajtassuk végre a programot! 
A gép először kiírja a két tényezőt: 


4 
12 


majd egy kérdőjellel jelzi, hogy egy érték — jelen esetben a szorzat — 
begépelésére vár. Begépeljük az eredményt: 


? 48 
Ezután a program kiírja a saját eredményét: 
SZERINTEM: 48 


Ezzel a végrehajtás befejeződik. Csalódottan állapítjuk meg, hogy 
a program ugyan korrektül működik, a feladatát mégsem látja el. Min- 
den végrehajtásnál ugyanazt a kérdést teszi fel, tehát a második futás 
már teljesen érdektelen mindenki számára. Így nem értük el célunkat. 
Számunkra ugyanis az lenne a kedvező, ha minden alkalommal más, 
előre ki nem számítható számokat adna meg. Ekkor ugyanis minden 
végrehajtás új és érdekes lenne. Eddigi ismereteink alapján ez nem old- 
ható meg, de van ismét olyan lehetőség a BASIC-ben, amivel ez sikerül. 

Van egy függvény í(részletesen lásd a 8. részben), amely véletlen- 
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számot állít elő. Ez a függvény lehetővé teszi, hogy egy változó ne 
ugyanazt az értéket kapja minden végrehajtáskor, hanem valamilyen 
véletlenszerű értéket. Ekkor a LET szó utáni részben az egyenlőségjel 
jobb oldalára nem egy konkrét értéket kell írni, hanem ezt a véletlen- 
szám-előállító függvényt. Azt is meg kell adni, hogy a véletlenszám 
milyen tartományba essen. Kívánságunk szerint 1 és 12 közötti egész 
véletlenszámokat kell előállítani. A véletlenszám előállításának részleteit 
a 12. részben ismerjük meg, itt csak a függvény számunkra érdekes 
végső formáját mutatjuk be. A Commodore esetén 1 és 12 közötti vélet- 
len egész számot következőképpen állíthatunk elő: 


INT(RND(1) r12)--1 


Ezt a bonyolult kifejezést az A és B változó értékének meghatározásánál 
a konkrét érték helyére kell írnunk: 


10 LETA-—INT(RND(1) 1 12)--1 
20 LET B—-INT(RND(1) r12)--1 


A módosítás eredményeképpen minden végrehajtás alkalmával mind 
az A, mind a B valamilyen 1 és 12 közé eső egész értéket kap, amely 
véletlenszerű (megjósolhatatlan). 


mm A HT gépen a véletlenszám előállítása formailag egyszerűbben 
érhető el: 
10 LETA-—RND(12) 
20 LET B-RND(12) 


A A PRIMO-nál a véletlenszám-előállítás formája: 


10 LET A—-RND(12) 
20 LET B-RND(12) 


e A Sinclair-gépeknél a véletlenszám-előállítás formája: 


10 LET A—INT(RND Fr 12)--1 
20 LET B-INT(RND " 12) 3-1 


Az INT szó begépeléséhez előbb nyomjuk le a CAPS SHIFT és 

a SYMBOL SHIFT gombot. Ekkor megjelenik az E helyőr, ilyen- 

kor billentyűk feletti zöld feliratok , élnek". Most nyomjuk le 

az R betű gombját, és megjelenik az INT a képernyő alsó sorá- 

ban. A begépelés után visszaáll az L helyőr. Az RND ugyanezzel 

a módszerrel gépelhető be, de a T gomb lenyomása kell hozzá. 

A két első utasítássor módosításával a módosítás be is fejeződik, 

hiszen az egyetlen hiányosságot pótoltuk. Ha most adunk ki végrehaj- 

tási parancsot, akkor a két megadott szám minden alkalommal más lesz, 
a játék pedig , élvezetessé" válik. 

Munkánk befejeztével az eszközöket kikapcsolhatjuk (először a gé- 
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pet, utána a tv-t). Ezzel az utoljára begépelt program is elveszett. Erről 
meggyőződhetünk, ha újra bekapcsoljuk a gépet, s a RUN begépelése 
hatására nem történik semmi. Jó lenne, ha nem veszne el a munkánk! 
Ezzel majd a 2. részben foglalkozunk. 

A következőkben rendszeresen fogunk előrehaladni, építve a most 
megismert fogalmakra, és jelentősen kibővítve, hogy összetett feladato- 
kat is könnyen oldhassunk meg. 


2. A SZÁMÍTÓGÉP HASZNÁLATA 


Milyen részekből áll a számítógép? A billentyűzet leírása. 
Programok másolása kazettára és lemezre 


Az első részben megismertük azokat az eszközöket, amelyek ahhoz 
szükségesek, hogy feladatokat tudjunk megoldani BASIC nyelven 
(1. ábra). A számítógépből, billentyűzetből és kijelzőből álló (tv) 
eszközkészlet . elegendő ahhoz, hogy programokat (sorszámozott 
utasítássorozatokat) készítsünk, azokat végrehajtsuk. Ezek az eszközök 
lehetővé teszik, hogy a program végrehajtása közben a feladatokhoz 
számértékeket adjunk meg, s a feladatmegoldás eredményei a tv kép- 
ernyőjén megjeleníthetők legyenek. 

Az első rész végén kiderült az is, hogy ennek az ún. minimális eszköz- 
készletnek korlátai is vannak. Mint emlékszünk rá, minden új feladat 
megoldásánál az előző feladatot megoldó program , elveszett", mert 
helyére kellett beírni az új programot. Ezért ha egy korábbi feladatot 
újra meg akarunk oldani, akkor annak az utasítássorait ismét be kell 
gépelni. Ha pl. a szorzatkitaláló program használata után újra szeret- 
nénk átlagot számolni, akkor be kell gépelni előbb a NEW szót (pa- 
rancsot), ezzel kitörölnénk a szorzatkitaláló programot, majd be kell 
írni a teljes átlagszámító programot. Ez nyilvánvalóan fáradságos és 
nem lelkesítő munka. Mit tegyünk azért, hogy az újra begépeléstől 
megmeneküljünk? 

Először vizsgáljuk meg röviden, hogy mi is a jelenség oka! Eddig nem 
beszéltünk róla, de a számítógépnek van egy nagyon fontos része, ahol 
tárolni lehet mindent, amit mi begépelünk, illetve egyéb adatokat. Ez 
a számítógép tárja. A tár feladata az adattárolás. A tár tárolási egységek- 
ből épül fel. Egy tárolási egység egy betűt vagy számot, vagy írásjelet 
képes megőrizni. A betűt, számot és írásjelet együttesen karakternek 
vagy jelnek nevezzük, a tárolási egységet bájtnak. A bájt is még to- 
vább bontható, de ezzel itt még nem foglalkozunk. Csupán annyit 
jegyezzünk meg, hogy egy bájtban 256 különböző karakter tárolható. 

Ha például beírjuk az alábbi BASIC utasítássort: 


10 INPUT B 


akkor ennek a tárolásához néhány bájtra van szükség. 

Látható, hogy a program egy meghatározható helyet foglal el a tár- 
ból. De nemcsak a programot kell tárolni, hanem a változókat, vagyis 
a programban előforduló adatokat is. Milyen hosszú programokat és 
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mennyi adatot tudunk tárolni a számítógép tárjában? Ez a tár méretétől 
függ. A legkisebb gépekben 1000 bájt (— 1 kilobájt — 1 kbájt) áll 
a programok rendelkezésére. A nagyobb gépeken 8, 16, 32, 48, 64 kbájt 
vagy ennél jóval nagyobb méretű tár van. Nekünk ekkorára nincs szük- 
ségünk. 

Megjegyezzük, hogy a programkészítő nem használhatja a teljes tár- 
kapacitást, mivel a gép saját maga is leköt egy bizonyos bájtmennyiséget. 

A tár egyes bájtjai sorszámmal vannak ellátva, ez a bájtok címe. Ez 
lehetőséget ad arra, hogy szükség esetén az egyes bájtokat egyénileg is 
tudjuk kezelni, azaz valamit bele tudjunk írni, illetve a tartalmát ki tud- 
juk olvasni. Ezt a BASIC nyelv is lehetővé teszi. (Erre majd még később 
visszatérünk.) Nagyon fontos, hogy tulajdonképpen nem is kell azzal 
törődnünk, mi hova kerül a tárban, vagy honnan lehet kiolvasni, mivel 
ezeket a feladatokat a gép (illetve az ún. operációs rendszer) helyettünk 
elvégzi. 

Az általunk használt kis számítógépekben általában kétféle tár van: 


— ROM: csak kiolvasható tár 
— RAM: írni is lehet bele, és olvasható is 


A ROM számunkra nem hasznosítható, mivel nem tudunk beleírni. Mi 
csak a RAM-ot használhatjuk. Ennek viszont az a kellemetlen tulajdon- 
sága, hogy tartalma a tápfeszültség kikapcsolásakor elvész. Ez az oka 
annak, hogy kikapcsoláskor a gépben, illetve a tárban lévő program 
elvész. Ezt a hiányosságot úgy tudjuk megszüntetni, ha a tárnak azokat 
a részeit, ahol a program elhelyezkedik, egy olyan eszközre másoljuk 
át, amely a beírt adatokat sokáig képes megőrizni. Ilyen eszköz a köz- 
ismert magnókazetta vagy a kevésbé közismert, de hasonló fizikai elv 
szerint működő mágneslemez. Itt bemutatjuk ezeknek az eszközöknek 
a használatát. 

Előbb azonban térjünk vissza még egyszer az előző rész feladataihoz. 
Joggal merül fel olyan igény, hogy a programok által szolgáltatott 
eredményeket is meg lehessen őrizni valahogy, hiszen a képernyőről 
előbb-utóbb elvész. Az lenne a jó megoldás, ha a számunkra fontos 
eredményeket (adatokat) papírra is kiírná a gép, így ezek megmarad- 
nának nekünk. Vagyis jó lenne, ha a géphez egy kiíró is tartozna, amely- 
lyel adatokat lehet kiírni. i 

Ebben a részben a már röviden bemutatott vagy említett eszközök 
használatát ismerjük meg részletesen: 


— billentyűzet 
— mágneslemezegység 
— kazettás tároló 


A nyomtató használatát a 4. részben mutatjuk be. 
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A BILLENTYŰZET 


A billentyűzetek felépítése nagyjából hasonló, általában csak apróbb 
részletekben térnek el egymástól. A billentyűzet nagyon emlékeztet 
az írógépek billentyűzetére. Az a legnagyobb különbség a kettő között, 
hogy a terminál jelkészlete nagyobb. 

A billentyűket három csoportra oszthatjuk: 


— karakterbillentyűk: lenyomásukkor a rájuk rajzolt jel (betű vagy 
szám) megjelenik a megjelenítőn, 

— funkcionális billentyűk: lenyomásukkor önállóan vagy a számítógép 
segítségével valamilyen műveletet végeznek el (soremelés, törlés, be- 
vitel stb.). 

— vegyes használatú billentyűk: önállóan használva karakterbillentyűk, 
valamely funkcionális billentyűvel együttesen lenyomva a funkció 
pontosítására szolgálnak (a későbbiekben mutatunk be erre példákat). 


A billentyűk többsége két állásban használható (két jel van rajtuk). 
A normál eset az alsó állás (megfelel az írógépek , kisbetűírás" állásá- 
nak). Ilyenkor, ha olyan billentyűt nyomunk le, amelyen két jel van, 
az alsó jel íródik ki. Ha viszont olyan karakterbillentyűt nyomunk le, 
amelyen csak egy jel van (többnyire betű), akkor a billentyűre rajzolt 
betű jelenik meg. A SHIFT billentyű lenyomásával a felső állásba kap- 
csolunk. Ilyenkor a billentyűk felső részén látható jelek írhatók ki. 

Mivel a számítástechnika angolszász nyelvterületen alakult ki, a bil- 
lentyűkön az angol ábécé betűi vannak. Magyar ékezetes betűk általá- 
ban nincsenek a terminálokon (a PRIMO kivételével). Mi azt javasoljuk 
— és ezt is fogjuk követni —, hogy azoknál a gépeknél, amelyeken nincs 
ékezetes betű, az ékezetes betűk helyett ezek ékezet nélküli változatát 
írjuk ki a szövegekben (pl. É helyett E-t). Bizonyára zavaró és szokatlan 
első látásra, de véleményünk szerint ezt könnyebb megszokni, mint 
a kettőzött magánhangzó írását (pl. É helyett EE). A magánhangzó 
megkettőzése a szavak hosszát is megnöveli, ami a táblázatok fejrovat- 
beosztásának megtervezésében okoz gondot. 


Megfigyelhetjük, hogy a terminál billentyűzetén mind a 10 számjegy 
szerepel a legfelső sorban. Vigyázzunk, hogy számok írásához csak eze- 
ket a billentyűket használjuk! Aki tud gépelni, annak kezdetben figyel- 
nie kell, hogy külön van O betű és nulla számjegy, valamint hogy az L 
nem 1-et jelent. 


BASIC programokban a billentyűzetnek csak meghatározott karak- 
terei használhatók (pl. betűk és számok). Ezeket részletesen az egyes 
gépek billentyűzetének ismertetésekor soroljuk fel. 

Érdemes minél előbb megtanulni, hogy a tizedesjel — az európai 
szabványtól eltérően, amerikai szokás szerint — a pont, tehát mindig 
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tizedespontot kell használni! A vessző funkciója más, tizedesként nem 
használható. 

A billentyűk fontos szolgáltatásokat tudnak nekünk nyújtani. Ilyen 
a képernyő törlése, amelynek eredményeként a képernyőről eltűnik 
minden kiírás, ésvsa helyőr az 1. sor 1. karakterpozíciójára (bal felső 
sarok) áll. Ez nem jelenti a program törlését, csak a képernyőt , tisz- 
títja meg". 

A funkcionális billentyűk teszik lehetővé, hogy a begépelt szöveget 
módosítsuk, a téves begépeléseket kijavítsuk. Itt csak az egyszerűbb 
lehetőségeket tekintjük át, a függelékben részletes leírás található 
a programok javítási módjairól. 

A billentyűk között vannak egyéb speciális funkciókat végrehajtók 
is. Ezeket, valamint a jelkészletet, a képernyő törlését és a gépelési 
hibák kijavítását az alkalmazott négy géptípusnál külön-külön mutat- 
juk be. 

Megjegyezzük, hogy a billentyűk egy része ismételni is tud, azaz ha 
tartósan lenyomva hagyjuk, akkor mindaddig újabb karakter kerül 
a képernyőre, amíg a billentyűt lenyomva tartjuk. 


A COMMODORE—64 BILLENTYŰZETE 


A Commodore—64 billentyűzete a 2. ábrán látható. A gépen írt progra- 
mokban következő karakterek használhatók: 


Betűk: ABCDEFGHIJKLULMNOPORSTUVWXYZ 
Számjegyek:0123456789 
Speciális jelek: F—8/1—C5$5""():;?,.231!9 ésa szóköz 


A képernyő a SHIFT és a CLR/HOME billentyű együttes lenyomásával 
törölhető. Ha csak a CLR/HOME gombot nyomjuk le, akkor a gép csu- 
pán a , HOME" funkciót hajtja végre. Ennek eredményeként a helyőr 
a bal felső pozícióba ugrik, de a képernyő nem változik meg. 


CLR JINST 

[w jrjoje[o[/[t] Tzálbb 

RUN ÍSHIFT RETURN 
STOP [ LOCK 

§ szög 

y —-e 


szóköz 
2. ábra. A Commodore—64 billentyűzete 
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Begépelés közbeni hibát az INST/DEL nyomógombbal javíthatunk 
ki, ha még a RETURN gombot nem nyomtuk le. Tegyük fel, hogy 
az alábbi sort kell begépelnünk: 

199 PRINT H§ 
de eltévesztettük, és az alábbi szöveget gépeltük be: 

199 PRIT Őn 
Mielőtt a RETURN gombot lenyomtuk, észrevesszük a hibát. Ekkor 
az INST/DEL gombot lenyomjuk, amely kitörli az utolsónak begépelt 
karaktert. Ha többször lenyomjuk, többet töröl visszafelé haladva. A be- 
gépelt szöveg nem teljesen rossz, az eleje még helyes: 

19a FRI 

Elég tehát idáig visszalépegetni az INST/DEL gombbal, majd innen foly- 
tathatjuk a beírást, most már helyesen: 

196 PRINT A 


Ha olyankor vesszük észre a hibát, amikor a RETURN gombot már 
lenyomtuk, akkor a javítást a függelékben leírt módon kell végre- 
hajtani. 

A Commodore-on van egy STOP RUN feliratú billentyű, amellyel 
a programok végrehajtását le lehet állítani. A lenyomás pillanatában 
még folyamatban lévő utasítást a gép végrehajtja, és a 


BREAK IN sorszám 


üzenet kiírása után a program végrehajtása leáll. 


A HT—1080Z SZÁMÍTÓGÉP BILLENTYŰZETE 


nm A gép billentyűzete a 3. ábrán látható. 


szóköz 


3. ábra. A HT—1080Z számítógép billentyűzete 
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A gép BASIC jelkészletének karakterei: 


Betűk: ABCDEFGHIJKLMNOPORSTUVWXYZ 

Számjegyek:0123456789 

Speciális jelek: 4H—8/1— CS$57"():;?,.2H8RI9Éés 
a szóköz 


A képernyőt a Clear gombbal lehet törölni. A gomb lenyomá- 
sakor a képernyőről minden jel eltűnik, és a helyőr a bal felső 
sarokba ugrik. 

Begépelés közben a hibát a Commodore-nál leírt módon lehet 
javítani. A visszalépés és karaktertörlés itt a — jelű gomb hatá- 
sára megy végbe. 

Ha a hiba a sor elején van, vagy túl sok hiba van a begépelendő 
sorban, akkor nem érdemes a visszalépéses törlést végrehajtani, 
mert a SHIFT és a € gomb együttes lenyomása törli a teljes 
sort, és a beírást újra lehet kezdeni. 

A program végrehajtása a BREAK gombbal szakítható meg. 

A gomb lenyomásakor végrehajtás alatt álló utasítás befejező- 
dik, és utána a program leáll a 


BREAK IN utasítássorszám 


üzenet kiírása után. Az utasítássorszám a leállás helyét jelöli. 


A PRIMO SZÁMÍTÓGÉP BILLENTYŰZETE 


A 
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A PRIMO számítógép billentyűzete a 4. ábrán látható. 
A gép BASIC jelkészlete a következő karakterekből áll: 


Betűk:a,á,b,c,d,e,é, f,g, h, i, í, j, k, I, m, n, o, ó, ö, ő, p, a, r, 
st, u, ú, Ü, Ű, v, w, x,Yy,Z, 


A, B, C, D, , É, F, G, H, I, J, K, L, M, N, O, Ö, P, O, 
R, S, T, U, Ü, HÉ 

Számok: 0, 1,2,3,4,5,6,7,8,9 

Speciális jelek: 1," E$HRBBT()$F,—./:; CS -— ésa szó- 


köz 


A billentyűzet nagy előnye, hogy a magyarban használt ékezetes 
betűk is — a nagy Ó, Ő, Ú, Ű és Í kivételével — megtalálhatók 
rajta, és ezek a programokban alkelaszhetők. valamint nemcsak 
a nagybetűk, hanem a kisbetűk is használhatók. Így a kiírások 
a magyar nyelvben szokásos módon elvégezhetők. Nem akarjuk 
befolyásolni :-a PRIMO-felhasználókat, hogy a programok írásá- 
hoz kis- vagy nagybetűt használjanak. A program-utasítássorok 
megírásához ugyanis mindkettő használható. Például az alábbi 
két sor egyenértékű: 


150 print atb 
és 150 PRINT atb 


A kis- és nagybetű váltás a SHIFT gombbal végezhető el az 

írógéphez hasonlóan. Ha valaki a többi géphez hasonlóan csak 
nagybetűket akar használni, akkor (a bekapcsolás után) nyomja 
le az UPPER billentyűt. 
Ennek hatására csak a nagybetűk jelennek meg. A többi gomb- 
ról, ahol két jel van, továbbra is az alsó jelenik meg. A felső jel 
csak akkor kerül a képernyőre, ha a SHIFT-et is lenyomtuk. Ha 
még egyszer lenyomjuk az UPPER-t, akkor a gép visszatér a kis- 
betűs üzemmódba. 

A képernyőt a CLS gomb lenyomásával lehet törölni. Ilyen- 
kor a képernyő törlődik, és a helyőr a bal felső sarokba ugrik. 

Begépelés közbeni hibát a € gomb segítségével javíthatunk ki, 
ha a sorzáró RETURN gombot még nem nyomtuk le. A € gomb 
lenyomásával a helyőr balra megy, és minden lenyomás után 
törli az útjában álló jeleket. Vissza kell menni a helyes rész 
végéig, és onnan a bevitelt helyesen meg kell ismételni. 

Ha egy sorban sok a hiba, vagy a legelején van hiba, akkor 
célszerű a sort a — és a SHIFT együttes lenyomásával törölni és 
a bevitelt megismételni. 

Ha a RETURN-t már lenyomtuk, akkor a függelékben talál- 
ható módon lehet a hibát kijavítani. 

A BRK billentyű lenyomásával a program végrehajtása az ép- 
pen végrehájtott utasítás befejezése után leáll, és a 


Break in utasítássorszám 
szöveget írja ki. Az utasítássorszámmal jelöli, hogy hol állt le. 


[J REsET 


( hátul, jobb oldalt ) 


SZÓköz 


4. ábra. A számítógép billentyűzete 
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A SINCLAIR-GÉPEK BILLENTYÜŰZETE 


A Sinclair-gépek billentyűzete az 5. ábrán látható. 
A gépen írt programokban a következő karakterek használhatók: 


Betűk: a, b, c,d, e, f,g, h, i, j, k, I, m, n, o, p, a, r, S, t, u, v, w, x, 
y,zZ 
A, B, C, D, E, F, G, H, I, J, KA, LM, N,O,P, O, R, S, T, 
UV, W,X,Y,Z 

Számjegyek:0,1,2,3,4,5,6, 7, 8, 9; 

Speciális jelek: "3 $9 B" () rt, ,—./: C57-?O1V[]E£ 
af T [59 az 57 () ésa szóköz; 


Mint látható, a kisbetűk is használhatók a gépen. 

A képernyőt a CLS (V gomb) lenyomásával lehet törölni, ha 
a K helyőr villog. 

Az alsó, beviteli sorba beírt szöveget az ENTER gomb lenyo- 
mása előtt a többi géphez hasonlóan lehet javítani. A begépelt 
szöveg utolsó jeleit a CAPS SHIFT és a 0 gomb egy-egy lenyo- 
másával lehet kitörölni. 

Itt is addig kell törölni (visszafelé haladni), amíg a maradék 
rész hibátlan nem lesz. Figyeljük meg, hogy ha olyan szöveg- 
részhez ér a helyőr visszafelé haladtában, amelyet egyetlen 
billentyű lenyomásával írhatunk le (pl. PRINT), akkor ennek 
a törlése is a CAPS SHIFT és a 0 egyetlen lenyomására megy 
végbe. 

A Sinclair-gépek formailag hibás szöveget nem fogadnak el. 
Egy kérdőjel jelzi az ENTER lenyomása: esetén, hogy hiba van 
a sorban. A hibát a bemutatott visszafelé haladó törléssel és újra 
begépeléssel javíthatjuk ki. 

A program végrehajtása a CAPS SHIFT és a BREAK gomb 
együttes lenyomásával szakítható meg. A lenyomás hatására 
a végrehajtás alatt álló utasítás befejeződik, utána a program 
leáll, és az 


L Break into program sorszám 


üzenet jelenik meg. 


MÁGNESLEMEZ ÉS KAZETTA HASZNÁLATA 


Mint már korábban láttuk, a mágneslemezegység és a kazettás magnó 
azt a célt szolgálja, hogy a számítógépben tárolt programokat a gép 
tárjából lemezre vagy kazettára kimásoljuk megőrzés végett. 

Ez általában akkor szükséges, ha készítettünk egy új programot, és 
miután használtuk, vagy ki akarjuk kapcsolni a gépet, vagy más progra- 


37 


mot kívánunk írni. A tárban lévő program mindkét esetben elveszne, 
ezért előbb kimásoljuk egy ún. külső tároló berendezésre (mágneslemez- 
egység vagy magnó). 

Ha újra akarjuk használni a már kimásolt programot, akkor a külső 
tárolóeszközről a programot be kell másolni a gép tárjába. Mivel az ilyen 
másolás hatására a program nem törlődik a mágneslemezről vagy 
a kazettáról, a tárba bemásolt programot szabadon lehet törölni, nem 
kell ismételten visszamásolni. 


Tegyük fel, hogy mind az átlagszámító, mind a szorzatkitaláló prog- 
ramot kazettára másoltuk. Ha az átlagszámító programot akarjuk hasz- 
nálni, akkor a programot bemásoljuk. Ha már nem akarjuk tovább 
végrehajtani, és helyette a szorzatkitalálót szeretnénk használni, akkor 
nyugodtan másoljuk be ez utóbbi programot anélkül, hogy az átlagszámí- 
tót kimásolnánk (kimentetnénk), mivel az megmaradt a külső tároló- 
egységen. 


Rögtön felmerül a kérdés, hogy mi történik akkor, ha már több prog- 
ramunk van egy kazettán vagy mágneslemezen, hogyan tudjuk kiválasz- 
tani a kívánt programot a sok közül. Ez csak akkor lehetséges, ha 
a programnak valamilyen nevet adunk a másoláskor. A program a meg- 
adott névvel kerül a külső háttértárolóra, és ha vissza akarjuk másolni, 
akkor a nevével tudjuk kiválasztani. 


Egy jó tanács. Akinek nincs saját számítógépe, és kölcsöngépet tud 
használni, vegyen magának 1—2 magnókazettát vagy lemezes gép esetén 
lemezt (a pontos típust a kölcsönadótól meg kell kérdezni!), amelyre 
a saját programjait gyűjtheti. Mágneslemez esetén a lemezt a használat 
előtt inicializálni kell (lásd a függelékben). 

A kazettás magnó ugyanúgy tárolja a programokat, mint a zene- 
számokat. Egy kazettán több program is lehet mindkét oldalon. Ha 
több kazettánk van, érdemes valamilyen megkülönböztető nevet adni 
nekik, és feljegyezni, hogy melyiken mi van. 


Most nézzük meg, hogy az egyes gépeknél a műveletek hogyan hajt- 
hatók végre. Itt nem részletezzük, de nyilvánvaló, hogy a kazettára írás 
vagy a kazettáról való másolás előtt a kazettát be kell helyezni a magnó- 
ba, a kazettaajtót be kell zárni stb. 


A MAGNÓ ÉS MÁGNESLEMEZEGYSÉG HASZNÁLATA A COMMODORE-ON 


A Commodore-:nál mind a mágneslemez, mind a kazettás magnó haszná- 
latát bemutatjuk. 
Kazettára való másoláskor a következő szöveget kell begépelni : 


SAVE "programnév", 1 


ahol 
SAVE — a tárolásra utaló szó, 
programnév — a program neve, amellyel majd visszamásolhatjuk 
a programot, 
1 - — a magnó eszközszáma. 


Jegyezzük meg, hogy a programnév legfeljebb 16 tetszőleges jelből áll- 
hat (pl. MINTA1). 
A szöveg (parancs) begépelése és a RETURN lenyomása után megje- 
lenik a 
PRESS RECORD 8 PLAY ON TAPE 


üzenet a képernyőn, ami azt jelenti, hogy nyomjuk le a felvételt indító 
gombot a magnón. A másolás végén megjelenik a képernyőn a 


SAVING programnév 
READY 


üzenet, ekkor a magnót le lehet állítani. 

A kazettára vagy lemezre másolás közben előfordulhatnak olyan hi- 
bák, amelyek miatt a kimásolt program használhatatlanná válik. Ezért 
jó meggyőződni arról, hogy a kimásolás hibátlan-e. Van a BASIC-ben 
olyan lehetőség, amellyel meg lehet vizsgálni, hogy a kimásolt és tárban 
levő program egyezik-e. Ezt a műveletet akkor kell elvégezni, amikor a 
másolás befejeződött, de a program még a tárban van. 

A vizsgálathoz a következő parancsot kell kiadni: 


VERIFY "programnév", 1 


ahol 
VERIFY — a vizsgálat parancsszava, 
programnév — a kimásolt program neve, 
1 — a kazettás magnó száma. 


Ha a parancs kiadása előtt a magnó a vizsgálandó program kezdetén áll, 
akkor a programnév és a kazettás magnó száma elhagyható : 


VERIFY 
A parancs kiadása után a 


PRESS PLAY ON TAPE 
üzenet kéri, hogy indítsa el a magnót. Ekkor megjelenik a 
SEARCHING FOR programnév 


üzenet, amely jelzi, hogy a gép keresi a megadott nevű programot. 
Ha megtalálta, akkor ezt is tudatja: 


FOUND programnév 
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Ha a két program egyezik, akkor az OK és a READY üzenet, másolási 
hibánál a 

? VERIFY ERROR 

READY 


jelenik meg. Ilyenkor a kimásolást meg kell ismételni. 

Arra már nekünk kell vigyázni, hogy a gép ne másoljon egymásra 
programokat. A kimásolás előtt ezért a magnószámláló segítségével 
vagy más módon a szalagot szabad helyre kell állítani. 

A szalagról való programbeolvasáshoz az alábbi parancsot kell begé- 
pelni: 

LOAD "programnév", 1 


ahol 
LOAD — a bemásolásra utaló szó, 
programnév — a beolvasni kívánt program neve, 
1 — a magnó eszközszáma. 


A szöveg begépelése és a RETURN lenyomása után a 


PRESS PLAY ON TAPE 


üzenet jelenik meg, ami azt jelenti, hogy a magnón meg kell nyomni a 
lejátszó gombot. Ha ezt megtettük, akkor a gép elkezdi olvasni a szala- 
gon levő programokat, illetve azok neveit. 

Ha megtalálta a kívánt nevű programot, akkor kiírja a 


FOUND programnév 


üzenetet, amellyel jelzi a megtalálás tényét. Ahhoz, hogy a bemásolás is 
megtörténjék, meg kell nyomni a C—, CTRL, -€ vagy szóköz gombot. 
Ha ezt megtettük, akkor elkezdődik a másolás. Erre utal a megjelenő 


LOADING 


üzenet. A bemásolás végét a 
READY 


üzenet jelzi; a magnót le lehet állítani. Ekkor a program bent van a tár- 
ban, és a 
RUN 


paranccsal a program végrehajtható, mintha most gépeltük volna be. 
A művelet eredményeként a program természetesen a kazettán marad. 
A mágneslemezre másolás és az onnan való visszamásolás valamivel 
egyszerűbben megy végbe, mivel a helykeresést a mágneslemezegység 
maga intézi, továbbá az indítás és a leállítás is felesleges. 
A mágneslemezre másolás a következő paranccsal hajtható végre: 


SAVE "programnév", 8 
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ahol 
SAVE - — a tárolásra utaló szó, 
programnév — a program neve, amellyel majd visszamásolhat- 
juk a programot, 
8 — a mágneslemezegység száma. 


A programnév itt is 16 jel hosszúságú lehet. 
Megjegyezzük, hogy a mágneslemez száma 9, 10, 11 is lehet. A má- 
solás megkezdésekor a 


SAVING programnév 


üzenet, a végén pedig a 
READY 


üzenet jelenik meg. Ez jelenti a másolás befejezését. 

A másolás helyességét itt is ellenőrizzük a tárban levő program tör- 
lése előtt. A parancs formája hasonló a kazettás magnónál bemutatott 
parancshoz: 

VERIFY "programnév", 8 
Hibás másolásnál itt is a 
? VERIFY ERROR 
ellenkező esetben csak a READY üzenet jelenik meg. Hiba esetén a má- 


solást meg kell ismételni. 
A visszamásolás az alábbi paranccsal végezhető el: 


LOAD "programnév", 8 


ahol 
LOAD — a beolvasás parancsszava, 
programnév — a beolvasni kívánt program neve, 
— a mágneslemezegység száma. 


A parancs kiadása után a 
SEARCHING FOR programnév 


üzenet jelenik meg, amely arra utal, hogy a gép keresi a kívánt progra- 
mot. Ha már megtalálta, akkor a 


LOADING 
üzenet mutatja, hogy a beolvasás megkezdődött. A beolvasás végét a 
READY 


üzenet jelenti. Ekkor a program már végrehajtható! 

A mágneslemezegységnek olyan szolgáltatása is van, hogy meg lehet 
tudni, milyen nevű programok vannak egy lemezen, tehát nekünk nem 
kell erről nyilvántartást vezetni. 
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A lemezen levő programok nevét két lépésben lehet kiíratni. Az első 
lépésben beolvastatjuk a lemez tartalomjegyzékét a már ismert LOAD 


paranccsal : 
LOAD "$", 8 


ahol 
$ — a tartalomjegyzék neve. 


A READY üzenet megjelenése után a 
LIST 


szó begépelése és a RETURN lenyomása után (listázási parancs) a kép- 
ernyőn megjelenik a lemezen levő programnevek listája. 

Felhívjuk a figyelmet arra, hogy a lemez érzékeny eszköz. Nem sza- 
bad erős mágneses térbe helyezni (villamos, trolibusz), nem szabad 
hajlítgatni, a lemez felületét valamilyen kemény eszközzel megérinteni, 
beszennyezni stb. Bármilyen sérülés a lemez tönkremenését okozhatja! 
Célszerű kemény lapok között tárolni. 


MAGNÓHASZNÁLAT A HT GÉPEN 


nm A HT gépen a mágneskazettára kimásolás a következő parancs- 
csal végezhető el: 


CSAVEÍjH—1, "programnév" 


ahol 
CSAVEfH—1 — a kimásolásra utaló szó, 
programnév — a program neve, amellyel a programot 
vissza lehet másolni. 


A program neve 1 karakter lehet, illetve egynél hosszabb névből 
csak az első karaktert használja. A másolási parancs begépelése 
után le kell nyomni együtt a REC és a PLAY gombot, majd a 
NEW LINE gombot. Ezzel a másolás elkezdődik. A másolás / 
befejezését a 

READY 


üzenet jelzi. 

A kimásolás a HT gépnél is lehet hibás. Ilyenkor a kimásolt 
program használhatatlan. Ezért a program kitörtése előtt ér- 
demes összehasonlítással ellenőrizni a másolás helyességét. 
Erre van lehetőség a gép BASIC-jében..Az összehasonlítás 
előtt a kazettát visszacsévéljük a kimásolt program elejére, 
elindítjuk a magnót a PLAY gomb lenyomásával, és kiadjuk 
a parancsot: 


CLOAD? "programnév" 
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ahol 


CLOAD? — az ellenőrzés parancsszava, 
programnév — az ellenőrzendő program neve. 


A parancs begépelése és a NEW LINE lenyomása után a gép 
elkezdi keresni a megadott nevű programot. Ha megtalálta, a 
képernyő jobb felső sarkában két csillag jelenik meg. Ezután a 
kazettán és a tárban levő programokat összehasonlítja. Ha a 
kazettán levő program hibátlan, akkor a jobb oldali csillag 
villog. Hibás esetben a végén a i 


BAD 


hibátlan esetben a 
READY 


üzenet jelenik meg. Ha a másolt program hibás, a kimásolást 
meg kel; ismételni. 
A beolvasás a következő paranccsal hajtható végre: 


CLOAD3$—1, "programnév" 


ahol 
CLOAD$H-—1 — a beolvasás parancsszava, 
programnév — a beolvasni kívánt program neve. 


Ezután le kell nyomni a magnó PLAY gombját és a NEW LINE 
gombot. Ekkor a gép elkezdi keresni a megadott nevű programot. 
Ha megtalálta, két csillag jelenik meg a képernyő jobb felső 
sarkában. A jobb oldali csillag időről időre felvillanással jelzi, 
hogy folyik a program bemásolása. A művelet végén a 


READY 


üzenet jelenik meg. Ezután a program végrehajtható. 


MAGNÓHASZNÁLAT A PRIMO-NÁL 


A 


A PRIMO-nál egy program kimásolása az alábbi paranccsal hajt- 
ható végre: 
SAVE "programnév" 


ahol 
SAVE — a kimásolásra utaló szó, 
programnév — a program neve, amellyel a programot 
vissza lehet másolni. 


A programnév legfeljebb 16 jelből állhat (pl. SZORZAT). 
Ezután el kell indítani a magnót felvétel állásban, és le kell 
nyomni a RETURN gombot. 
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A másolás befejeztével az 
Ok 


üzenet jelenik meg. 

Másolás közben előfordulhatnak hibák, amelyek azt eredmé- 
nyezik, hogy a kimásolt program használhatatlanná válik. Ez 
nagyon kellemetlen, mert ha a tárból is kitöröljük a programot, 
a program elvész, és újra be kell gépelni. Ezért célszerű a másolt 
programot ellenőrizni, hogy hibátlan-e. 

A PRIMO-nál az ellenőrzés nem a tárban levő program 
összehasonlításával megy végbe, hanem a kazettán levő program 
formai helyességének ellenőrzésével. Ha a kazettára másolt 
program formailag helyes, akkor tartalmilag is hibátlan. Az 
ellenőrzés előtt a kazettát legalább az ellenőrzendő program 
elejére kell állítani, és be kell gépelni az alábbi parancsot: 


TEST "programnév" 


ahol J 
TEST — az ellenőrzés parancsszava, 
programnév — az ellenőrzendő program neve. j 


Majd lenyomjuk a RETURN gombot és a magnó PLAY gombját. 

Ezután ugyanaz a folyamat zajlik le, mint a LOAD parancs 

begépelésekor (lásd később). Ha a hsz (hibaszám) értéke O, / 

akkor a kazettán levő program hibátlan, egyébként hibás. Az / 

ellenőrzés végén az Ok jelenik meg. ) 
A program visszaolvasását a következő parancs hajtja végre: 


LOAD "programnév" 


ahol 


LOAD — a beolvasás parancsszava, 
programnév — a beolvasni kívánt program neve. 


Majd le kell nyomni a RETURN gombot, és el kell indítani a J 
magnót lejátszásra. Ezután a gép keresni kezdi a megadott nevű / 
programot. Ha közben más nevű programot talál, akkor azt 
kiírja: 


SKIP:programnév 


Ha a kívánt programot megtalálja, akkor elkezdi a betöltést, és a / 
művelet végén üzenetet ír ki: 


rsz hsz FOUND:programnév 


ahol 
rsz — a betöltött program méretére vonat- 
kozó szám (rekordok száma), 


hsz — a hibák száma, 
FOUND — a megtalált (program). 


A betöltés csak akkor helyes, ha a hibaszám nulla. Ellenkező 
esetben a betöltést meg kell ismételni. 


MAGNÓHASZNÁLAT A SINCLAIR-GÉPEKNÉL 


e A Sinclair-gépeknél egy program kimásolása a következő pa- 
ranccsal hajtható végre: 


SAVE "programnév" 


ahol 
SAVE — a kimásolásra utaló szó, 
programnév — a program neve, amellyel a programot 
vissza lehet másolni. 


A programnév legfeljebb 10 jelből állhat. 

A magnó csatlakozóját előzőleg a számítógép EAR-kivezeté- 
sébe kell bedugni. Lenyomjuk az ENTER gombot és ezután 
megjelenik a : 

Start tape, press any key 


üzenet. Ekkor el kell indítani a magnót felvétel állásban, és a 
gépen valamelyik gombot le kell nyomni. A másolás végén a 
0 OK, üzenet jelenik meg. 

A kimásolt programban lehet hiba, ilyenkor használhatatlan. 
Ezért a programot kitörlése előtt hasonlítsuk össze a kimásolt 
programmal. A kazettát állítsuk vissza a program kezdetére, a 
magnó csatlakozóját a MIC-kivezetésbe dugjuk be, és adjuk ki a 


VERIFY 
parancsot. A parancs formája: 


VERIFY "programnév" 


ahol 
VERIFY — az ellenőrzés parancsszava, 
programnév — az ellenőrzendő program neve. 


A parancs begépelése után el kell indítani a magnót lejátszásra. 
Ha a kimásolt és a tárolt program egyezik, akkor az OK üzenet, 
hibánál az R hibaüzenet jelenik meg. Az utóbbi esetben a 
kimásolást meg kell ismételni. 
Kazettán levő programot a következő paranccsal lehet 
bemásolni : 
LOAD "programnév" 
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ahol 
LOAD — a beolvasás parancsszava, 
programnév — a beolvasni kívánt program neve. 


A bemásolás előtt a magnócsatlakozót dugjuk be a MIC-kiveze- 
tésbe. A parancs beírása után nyomjuk le az ENTER sorszáró 
billentyűt, és indítsuk el a magnót lejátszásra. A bemásolás 
végén megjelenik a K helyőr. Ezután a program végrehajtható. 


NÉHÁNY SZÓ AZ OPERÁCIÓS RENDSZERRŐL 


Végül nézzünk még valamit! Az eddigiekben láthattuk, hogy attól kezd- 
ve, hogy a gépet bekapcsoljuk, 
READY 


vagy 
Ok 


üzenet, vagy a K helyőr jelzi, hogy a gép készen áll valamilyen feladat 
végrehajtására. Ha van valamilyen, a gép által megoldható feladatunk, 
akkor egy megfelelő parancsot beírunk, és a gép azt végrehajtja. Hogyan 
lehetséges ez? A gépben már a bekapcsoláskor vannak programok, ame- 
lyek ezeket a parancsokat végrehajtják. Azokat a programokat, amelyek 
a számítógéprendszer egészét irányítják, elemeinek működését össze- 
hangolják, a felhasználót a program készítésében támogatják, együtt- 
véve operációs rendszernek nevezzük. 

Az operációs rendszer gondoskodik arról, hogy a begépelt program 
bekerüljön a tárba, hogy a RUN parancs hatására a program végrehaj- 
tódjék, hogy a SAVE jellegű parancs hatására a program kimásolódjék 
a kazettára, és így tovább. 

Az operációs rendszert paranccsal utasítjuk valamilyen művelet végre- 
hajtására. Ilyen parancs az eddig megismertek közül a NEW, a SAVE, a 
RUN stb. A programon belüli műveletek parancsait megkülönbözte- 
tésül utasításnak nevezzük. 

Az operációs rendszer üzenetekkel ad választ egy parancs végrehajtá- 
sa után, valami hiba esetén, vagy üzenettel tudatja, hogy éppen mit 
csinál (például a bemásolás közben kiírja, hogy LOADING a betöltés 
folyamatban van). 

Az operációs rendszer szolgáltatásai megkönnyítik a felhasználó 
munkáját. Több szolgáltatáshoz több program kell, több programhoz 
nagyobb tár. Azt mondhatjuk tehát, hogy kis tárkapacitású gépben kis 
operációs rendszer van, nagyobb tárkapacitású gépben nagyobb operá- 
ciós rendszer lehet, amely több szolgáltatást tud nyújtani, mint egy 
kisebb gépé. (Azért ne higgyük, hogy az operációs rendszer szolgálta- 
tásainak színvonala egyedül az elfoglalt tár méretétől függ.) 
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Minden gépnek van saját operációs rendszere. Vannak általános ope- 
rációs rendszerek, amelyek különböző gépeken (majdnem) ugyanazt a 
szolgáltatást tudják nyújtani. Ilyen operációs rendszer például a szemé- 
lyi számítógépeken használható CP/M. Ennek néhány fontosabb szolgál- 
tatását a függelék tartalmazza. 


Ellenőrző kérdések és feladatok 


1. Magyarázza meg, hogy mi a különbség az alábbi két szöveg között: 


10 PRINT"VEGRE!" 
PRINT"VEGRE!" 


Mi történik, ha az elsőt gépeljük be, és mi akkor, ha a másodikat? 
Minek a hatására lesz az eredmény ugyanaz mind a két szövegnél? 
2. Mi a különbség az alábbi két program között? 


a) 10 LET A-—8 
20PRINT A 


b) 10 INPUT A 
20PRINT A 


3. Mi a különbség az alábbi két sor között? 


a) PRINT"543" 
b) PRINT 5343 


4. Gépeljük be a szorzatkitaláló programot, és másoljuk ki kazettára vagy lemezre! 
Ellenőrizzük, hogy jó-e a másolat! 
Módosítsuk a programot az 1. részben leírtak szerint úgy, hogy A és B véletlen- 
szerű legyen. A módosítást a 3. függelékben leírtak szerint végezzük el! Az új 
programot szintén másoljuk ki (de más névvel)! 
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PROGRAMOZÁS MÓDSZEREI 


31 38 ; 


ogramkészítés imódszere és lénésél 3 3 KEZEÉN Es ő s 
" feladat megoldásának első része : ; 4. KEZE 


Ebben a részben a programkészítés alapelveit ismerjük meg. Számító- 


. gépet nem fogunk használni csak a következő részben, amikor az itt el- 


kezdett feladat megoldását befejezzük. 


A PROGRAM 


Vizsgáljuk meg az 1. részben megoldott átlagszámítási feladatot megol- 
dó programot! Nézzük meg, hogy az egyes utasítássorok milyen felada- 
tot látnak el: 
19  IÍWFUT 
z9d IMFUT 
39 INFUT 
32 IHRUT 
58 IMFUT 
eg LET S-BtCtDtEtF 
7A LET A-Ss-/5 
88 PRINT AH 


mmnam 


Az első öt utasítás hasonló feladatot lát el: adatokat kér be a billentyű- 
zetről. Az itt beolvasott adatokat a 60-as és közvetve a 70-es sorszámú 
utasítás felhasználja, ezért ezek az adatok a megoldás kiinduló vagy be- 
meneti adatai. Ha ezeket nem adjuk meg, akkor a feladatmegoldás el- 
veszíti az értelmét. 

A program további két utasítása — mint már említettük, a 60-as és 
70-es sorszámú — a kiinduló adatokkal egy meghatározott műveletsort 
végez el, ez az öt szám összeadása és öttel való elosztása. De könnyen 
beláthatjuk, hogy feladattól függően itt más műveletek is állhatnának. 
Az adatokkal való műveletvégzést általános érvénnyel feldolgozásnak 
nevezzük. Az adatok feldolgozása során a kiinduló vagy bemeneti ada- 
tokból új adatok (értékek) készülnek. Ezek az adatok alkotják a feldol- 
gozás célját. A bemutatott példában a feladat célja az átlag kiszámítása 
volt. Ezért van szükség az egész műveletsorozatra, hogy a végén ezeket 
az új adatokat megkapjuk. Ezek a feldolgozás eredményei vagy máskép- 
pen a megoldás kimeneti adatai. 
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Bármilyen más, számítógéppel megoldott feladatot vizsgálunk meg, 
azt látjuk, hogy a feladat a kívánt eredményadatok előállítása valami- 
lyen kiinduló adatból valamilyen feldolgozási műveletsorral: 


Kiinduló adat — Feldolgozás — Eredmény 


Ez természetesen nemcsak a programozásra jellemző, hanem bármilyen 
termelőfolyamatra is. 

Számítógépes feladatmegoldásnál a kiindulás és az eredmény is adat: 
valamilyen számérték, valamilyen szöveg, ezért is nevezzük az ilyen 
feladatmegoldást adatfeldolgozásnak. Ezt a három művelettípust jól 
meg kell jegyeznünk, mert a további feladatok megoldásának magvát 
fogják alkotni. 


A feldolgozás műveletek sorozatából áll, amely a bemeneti adatokból 
elkészíti az eredmény-(kimeneti) adatokat. A feldolgozás műveleteit és 
sorrendjüket a feladatnak megfelelően kell összeállítani. Az egy adott 
feladat megoldását szolgáló műveletsorozatot algoritmusnak nevezzük. / 
A feldolgozási algoritmust a feladat alapján lehet meghatározni. 


Egy feladat több különböző algoritmussal, hasonló feladatok ugyan- 
azzal az algoritmussal is megoldhatók, vagyis nem kell minden feladat- / 
hoz új algoritmust kitalálni. ; 

Az algoritmust a feladat megoldójának kell megfogalmaznia. Ez azt ! 
jelenti, hogy a megoldónak kell meghatároznia a műveleteket és sor- 
rendjüket úgy, hogy számítógéppel el lehessen végeztetni őket. ! 


A számítógépi műveletekből összeállított algoritmus a program. Más- 
képpen: a program a számítógép nyelvére lefordított algoritmus. 

A program — mint láttuk — utasításokból épül fel. Amikor a gép a 
programot végrehajtja, akkor ezeket a műveleteket a kijelölt sorrend- 
ben elvégzi, és hatásukra elkészül az eredmény. Ezekkel a megállapí- 
tásokkal kiegészíthetjük az 1. részben felsorolt programjellemzőket. 


A következőkben ismerjünk meg egy módszert, amely alkalmas arra, 
hogy feladatokat számítógép segítségével megoldjunk. Figyeljük meg, / 
hogy a cél sohasem egy program megírása, hanem egy feladat megoldá- 
sa, amelyben egy eszköz a program, így a számítógép is. 


A FELADATMEGOLDÁS MÓDSZERE 


Ha felmerül egy feladat (pl. a babkávé fogyasztását kell megjósolni az 
elkövetkező öt évre, vagy egy termékszerkezet rendelésállománya alap- 
ján a gyártókapacitást és az alkatrész-szükségletet kell meghatározni, 
vagy egy vállalat dolgozóinak bérét kell kiszámítani a teljesítmények 
alapján), amelyet számítógéppel akarunk megoldani, akkor a feladat 
megfogalmazása után a megoldásig a következő lépéseket kell elvégezni: 
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— a feladat elemzése, 

— a program tervezése, 

— a modulok tervezése, 

— a program kódolása (BASIC nyelvű utasítássorok megírása) , 
— a program kipróbálása (tesztelése) , javítása, 

— a program végrehajtása (futtatása), 

— a kapott eredmények értékelése. 


Már itt megemlítjük, hogy valamennyi lépésben írásos anyagok is 
készülnek a megoldásról, amelyek együttesen alkotják a program 
dokumentációját. Az első három lépéssel itt, a többivel a 4. részben 
foglalkozunk egy egyszerű feladat megoldásán keresztül. 

A programozási feladatok megoldásához olyan módszert mutatunk 
be, amely az elemzési, tervezési és kódolási szakaszban is hasznosan al- 
kalmazható. Az alapmódszer: a moduláris programozás. 

A moduláris programozás lényege, hogy a feladatot részfeladatokra 
(funkciókra) kell felbontani, ezeket önállóan kell kódolni, majd az 
egyes modulokból össze kell állítani a kész programot. Először tisztáz- 
zuk a modul fogalmát. 

A modul a programnak egy része, amely 


— az egész feladaton belül mint elkülönített részfeladat jelenik meg (1o- 
gikai egység) ; 

— funkciója, hatása elkülönítve is értelmes, ami az ellenőrzés szem- 
pontjából jól hasznosítható; 

— mint részfeladat külön is meghatározható, és a főfeladattól elkülö- 
nítve is elkészíthető; 

— egy vagy több, de 20—30-nál kevesebb utasításból áll. 


A moduláris programozás leglényegesebb lépése a feladat modulokra 
bontása. Ez azt jelenti, hogy a feladatot funkciókra (részfeladatokra) 
kell bontani, és ezek fogják a modulokat alkotni. 

A modulok a feladat megoldásában betöltött szerepük szerint három 
csoportba oszthatók: 


— vezérlőmodul, 
— adatmodul, 
— eljárásmodul. 


A vezérlőmodul irányítja egy vagy több modul, vagy az egész program 
végrehajtását (6. ábra). A vezérlőmodul a benne meghatározott sorrend 
szerint az 1. alárendelt modul végrehajtására tér át (ez a bal oldali szél- 
ső modul). Ha ezzel elkészült a gép, akkor ismét a vezérlőmodul veszi át 
a szerepet, és a következő (balról a második) modulra tér át a végrehaj- 
tás. Ez addig ismétlődik, míg valamennyi alárendelt modul végrehajtó- 
dik. A vezérlőmodulból való áttérést nevezzük hívásnak. 
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Vezérlőmodul 


6. ábra. A vezérlőmodul működése 


Eredménykiírás 


Példaként nézzünk meg egy olyan feladatot, amelyben egy vezérlő- 
modul van, és ennek három modult kell vezérelnie. Az első modulnak 
öt számértéket kell beolvasnia, a másodiknak ki kell számítania a beol- 
vasott öt adat átlagát, a harmadiknak pedig ki kell írnia az átlagot 
(7. ábra). A modulok a végrehajtás sorrendjében helyezkednek el a ve- 
zérlőmodul alatt. 


A vezérlőmodul az alábbiak szerint működik ebben a példában: -Elő- 
ször hívja az adatbeolvasást. Ezután ismét a vezérlőmodul fog mű- 
ködni, ami abban áll, hogy hívja az átlagszámítást. Az átlagszámítás 
végrehajtása után újra a vezérlőmodul működik az átlagkiírás hívásával. 

A vezérlőmodul tehát úgy működik, mint egy karmester: az aláren- 
delt modulok valamelyikét végrehajtja. A későbbiekben ennél bonyo- 
lultabb vezérlési műveleteket is fogunk látni. 

A hívás helyett vezérlésátadást is szoktak mondani. Például a vezérlő- 
modul átadja a vezérlést az adatbeolvasásnak, majd a végrehajtás után a 
vezérlés ismét a vezérlőmodulra kerül vissza. 

Egyszerű szerkezetű programoknál a vezérlőmodul el is hagyható. 
Ilyenkor a modulok a megoldásnak megfelelő logikai sorrend szerint 
egymást hívják. A 6. ábrán bemutatott példa vezérlőmodul nélküli fel- 
építése a 8. ábrán látható. A modulokat a végrehajtásnak megfelelő sor- 
rendben láthatjuk, és a szemléletesség kedvéért a végrehajtás (és a ve- 
zérlés) felülről lefelé halad. 

A modulszerkezeti ábrán azonban a vezérlőmodult érdemes meghagyni, 
mert így jobban látszódik a feladat logikai szerkezete. 

Az adatmodul a program adatainak meghatározására szolgál. Lénye-. 


Vezérlő- 
modul 


Adat- 
beolvasás 


Átlag- Átlag 
számítás kiírása 
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Adatbeolvasás 
Eredménykiírás 


gében passzív modul, a feladat érdemi megoldásához szükséges művele- 
teket nem tartalmaz, csupán adatokat. A BASIC nyelvben egyszerű az 
adatmeghatározás: szigorúan véve csupán tömbök (több adatból álló 
adathalmazok) terjedelmét határozza meg. Adatmodulnak tekinthet- 
jük azonban az olyan modulokat is, amelyekben kiinduló adatokat kell 
beolvasni, vagy változóknak induló értéket kell adni. Adatmodul pél- 
dául a 7. ábrán az adatbeolvasás modul. 
Adatmeghatározás két módon lehetséges a programban: 


8. ábra. A végrehajtás sorrendje 


— minden műveletet végző modulhoz külön-külön, 
— együtt az egész program számára. 


Tanácsos a program elején az összes adatot egyszerre definiálni, mert 
így az adatmeghatározások egy helyen lesznek, de adott esetben ettől 
el is térhetünk. 


Az eljárásmodulok valamilyen tényleges műveletet tartalmazó mo- 
dulok. Ezek a modulok végzik el pl. a különböző feldolgozási művelete- 
ket és a kiírásokat. Egy programon belül eljárásmodulból van a legtöbb, 
és ezek összessége hajtja végre a tulajdonképpeni feldolgozást. Eljárás- 
modul a 7. ábra átlagszámítás és átlagkiírás modulja. 

Hogyan kapjuk meg egy feladat megoldásához szükséges modulokat? 
Nézzünk erre egy példát! Tegyük fel, hogy a feladat egy órabéres dol- 
gozó havi bérének kiszámítása és az eredmény kiírása (bizonylat!). Ve- 
gyük sorra, hogy egy dolgozó bérének meghatározásához milyen fel- 
adatokat kell elvégezni. A feladatot első lépésben két részfeladatra 
bonthatjuk (9. ábra) : 


— meg kell határozni az összeadandó tételeket, amelyekből a bér ösz- 
szetevődik; 
— meg kell határozni a levonásokat. 


A részfeladatok azonban még nem oldhatók meg egyszerűen, mert 
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több különböző dolgot foglainak magukban: a levonásokba beletarto- 
zik a nyugdíjjárulék levonása, az esetleges letiltások, CSÉB stb. Ugyan- 
így a bérösszetevők között van időbér, prémium, családi segély stb. 
Tehát egy következő lépésben a két részfeladatot bontsuk szét további 
részfeladatokra. Az összetevőkre ezt kapiuk (nem teljeskörűen) : 


— időbér kiszámítása 

— prémium 

— bérkiegészítés kiszámítása 
— családi segély kiszámítása 


A levonásokat — szintén nem teljeskörűen — az alábbi részfeladatokra 
lehet bontani: 

— nyugdíjjárulék kiszámítása 

— CSÉB kiszámítása 

— KST kiszámítása 


A részfeladatokra bontást addig érdemes csinálni, amíg nem kapunk 
olyan egyszerű, a többitől jó! elkülöníthető részfeladatokat, amelyeket 


; Bér- 
számfejtés 
1. szint 


9. ábra. A feladat részfeladatokra bontása 
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moduloknak tekinthetünk. Ezek után meg kel! határozni a modul mű- 
veleteit, és a feladatot megoldó programot ezekből a modulokból kell 
felépíteni. 

A fent bemutatott eljárás módszerünk másik fontos eleme, ti. a fe- 
tülről lefelé haladás a megoldás során. Tehát az első lépésben meghatá- 
rozzuk a feladatot. Ez a fő, a legmagasabban álló feladat. A következő 
lépésben megvizsgáljuk, milyen részfeladatot kell elvégezni, hogy a fel- 
adat meg legyen oldva. Ekkor megkapjuk a feladat egészének alárendelt 
részfeladatokat. Ezeket a feladat alá rajzoljuk, hogy jelöljük a felbon- 
tást. A részfeladatokat tovább lehet bontani újabb részfeladatokra, ame- 
Iyeket a részfeladatok alá lehet rajzolni. Lényegében a feladat egészét 
bontjuk fokozatosan részfeladatokra. Közben szakaszosan haladunk a 
feladattól lefelé a legapróbb részfeladatokig. Ezért nevezzük az eljárást 
felülről lefelé haladásnak. A felülről lefelé való lebontás (top-down) so- 
rán a részfeladatok , szinteket" alkotnak. A lebontást a feladat össze- 
tettségétől függően különböző számú szinten végezzük addig, amíg 
nem kapunk egyszerű, jól elkülöníthető, önállónak tekinthető részfel- 
adatokat, amelyek már egy modulnak foghatók fel. 

A módszer előnye, hogy a lebontás eredményeként jól látszik a rész- 
feladatok — modulok — közötti összefüggés. A feladat módszeres fel- 
bontása abban is segít, hogy ne hagyjuk ki a feladat megoldásához szük- 
séges részfeladatokat. 


A FELADATMEGOLDÁS FOLYAMATA 


A FELADAT ELEMZÉSE 


Az első lépésben a feladatot fel kell bontani részfeladatokra (elegendő 
egy szinten), hogy lehessen látni, milyen jellegű tevékenységeket kell el- 
végezni a feladat megoldása érdekében. 


Elemezni kell a feladat számítógépben való megoldhatóságát. Ha a 
feladat egyébként megoldható (ismertek a kiinduló adatok, a megoldási 
algoritmus, kiszámítható az eredmény stb.) , akkor még mindig felmerül- 
het olyan akadály, amely részben vagy egészben meghiúsíthatja ezt. 
Ilyen ok például, ha a kiinduló adatok nem kaphatók meg időben az 
eredményadatok elkészítéséhez, illetve a számítógép képességeit megha- 
ladó bonyolultság vagy adatmennyiség. 


Itt kell meghatározni, hogy milyen műveletek nem végezhetők el a 
számítógéppel (pl. az eredményadatok elszállítása), vagy melyeket nem 
érdemes számítógéppel elvégezni (pl. túlságosan hosszú listák, amelye- 
ket nem rendszeresen használnak). Az elemzés eredménye a megoldás 
algoritmusának pontos vagy nagyvonalú kialakítása is. 
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A hívja B-t, majd C-t 


A 


A egy feltételtől függően 
jú WE Mesa vs közé a Méz 
9. 
HE 


A ciklikusan hívja B-t 


Hi 


d) B önmagát hívja 
(rekurzív hívás) 


10. ábra. A modulok közötti kapcsolatok rajzjelei 
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A PROGRAM TERVEZÉSE 


A programtervezés a feladat elemzésének eredményeit használja fel. 
Fontos feladata a program szerkezetének további finomítása a feladat- 
elemzés során kapott modulszerkezet tovább bontása révén. A meglevő 
funkciókat újabb részfunkciók megállapításával újabb szinteken bont- 
juk tovább. A bontást addig célszerű folytatni, amíg minden szinten 
lehetőleg egyszerű funkciót ellátó modulokat kapunk. Ezek a funkciók 
alkotják a program moduljait. 

A bontás eredményeként kapott modulok között kapcsolat van. 
Ezeknek a kapcsolatoknak kell biztosítaniuk, hogy a modulok végrehaj- 
tása a helyes sorrendben történjen. 

A programtervezés eredményeként létrehozott modulokat és a kö- 
zöttük fennálló kapcsolatokat (struktúrát) egyezményes jelekkel áb- 
rázoljuk (10. ábra). 


a) Az A modul előbb a B, majd a C modult hívja. A szerkezet 
gyakorlati alkalmazására a 7. ábrán láthatunk példát. 

b) Az A modul egy feltételtől függően vagy a B, vagy a C mo- 
dult hívja. Az A modul feltételvizsgálati feladatot lát el a 
programon belül. A B és C modul végrehajtása a vizsgált 
feltételtől függ. 

c) Az A modul ciklikusan hívja a B modult. Erre akkor van 
szükség, ha egy adatcsoport valamennyi elemén ugyanazt 
a műveletet kell elvégezni (pl. egy vállalat dolgozóinak bérét 
ugyanazzal az eljárással kell kiszámítani). Az A modul annyi- 
szor hívja a B modult, ahányszor a műveleteket végre kell 
hajtani. 

d) A B modul önmagát hívja (rekurzív hívás). Ez lényegében a 
c) pontban leírt szerkezet egyszerűsített változata, ha a ve- 
zérlő A modult elhagyjuk, és a ciklikus irányítást a B mo- 
dulba építjük be. 


A 12. ábrán bemutatott modulszerkezeti jelekkel szinte valamennyi 
feladat szerkezete ábrázolható. 

A modulok végrehajtásának sorrendjét a vezérlőmodul, illetve ha 
több van, akkor a. vezérlőmodulok megfelelő kialakításával kell biztosí- 
tani. A funkciókat megvalósító modulokat — mint már korábban utal- 
tunk rá — balról jobbra haladva kell berajzolni a modulszerkezeti ábrá- 
ba, mert a végrehajtás is majd balról jobbra halad. 

A programtervezéshez tartozik annak az eldöntése is, hogy a prog- 
ram egyetlen program legyen, vagy több önálló programból álljon. Fel- 
merül a kérdés, hogy mikor melyik megoldás a célszerűbb. Bonyolult, 
nagy feladatnál érdemes több programra felosztani az egészet. 

Hasonló vagy azonos funkciók ellátására érdemes típusprogramot 
tervezni. Ezt csak egyszer kell elkészíteni, és ezek után több feladat 
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megoldásában is alkalmazható. Sok fáradságot és időt lehet megtakarí- 
tani vele. A többször felhasználható modulprogramok modulkönyv- 
tárat alkotnak. 

Összefoglalva megállapíthatjuk, hogy a program modulokra bontásá- 
nak számos előnye van: 


— a feladatot könnyen kezelhető, zárt egységekre bonthatjuk fel; 

— a program(ok) terve jól áttekinthető; 

— a feladat változásánál a program könnyen módosítható, mert ez rend- 
szerint csak modulcserét vagy modulmódosítást jelent; 

— a program elkészítéséhez szabványos modulokat is MASZRBNTAGBAK s 
ez időmegta karítást eredményez. 


A MODULOK TERVEZÉSE 


Az egész program megtervezése után a program , építőköveinek" — a 
moduloknak — a tervezése következik. A tervezés során meghatároz- 
tuk a feladat megoldásához szükséges modulokat. Láttuk, hogy a modul 
egy részfeladatot old meg. Az egész feladat megoldása szempontjából 
azt is meg kellett határozni, hogy egy modul hogyan kapcsolódjék a töb- 
bihez, mikor kell feladatát megvalósítania, honnan kapjon adatokat 
stb. Ez a modul külső specifikációja. Továbbá le kell írni azokat a belső 
folyamatokat, amelyek végrehajtásával a modul teljesíti funkcióját. 


A külső specifikációhoz tartozik a modul neve, amellyel a programo- 
zó az adott modult azonosítja. Ide tartozik a modul típusának (vezérlő-, 
adat-, eljárás-) meghatározása is. Végül azt is definiálni kell, hogy a mo- 
dul milyen módon kapcsolódik a környezetéhez, vagyis hogyan lehet 
hívni, és mi történik a befejezéskor. 


Általánosan követendő szabályként javasoljuk az olyan modulok 
tervezését, amelyek fő jellemzője, hogy egyetlen bejáratuk és egyetlen 
kijáratuk van. Ez azt jelenti, hogy a modul végrehajtása mindenféle- 
képpen ugyanazon a kezdő utasítássoron indul, és ugyanazon a záró 
utasítássoron fejeződik be. Ez a modulok zártságát, áttekinthetőségét 
fokozza, és nem lebecsülendő az sem, hogy ilyenkor a módosítás köny- 
nyebben elvégezhető. 


A modul belső tervezése három fő lépésből áll: 


a) A kiinduló adatok leírása 
Részletesen le kell írni minden tárolt vagy az előző modulok 
által készített adatot, amelyet a modul a végrehajtáskor fel- 
használhat. A meghatározás tartalmazza a kiinduló adatok tá- 
rolási módját (külső tárolón, tárban stb.), jelölését, típusát 
(szöveges, számérték vagy mindkettő) és értéktartományát. 


b) Az eredményadatok leírása 
A modul funkciója az eredményadatok előállításával valósul 
meg. A modul tervezésekor ezeket is részletesen meg kell ha- 
tározni (pl. a kiírás formája, a tárolt adatok felépítése, jelö- 
lése stb.). 

c) A feldolgozás folyamatának meghatározása 
Meg kell határozni azokat az adatokon végrehajtott művelete- 
ket és végrehajtási sorrendjüket, amelyeknek eredményeként 
megjelennek a szükséges kimeneti adatok. 


A feldolgozási folyamatot folyamatábrával tesszük képszerűbbé és 
könnyebben áttekinthetővé. Sok olyan művelet van, amely rendszerint 
több feldolgozási folyamatban is előfordul. Ezeket célszerű egységes 
folyamatábrajellel jelölni. Így alakultak ki a folyamatábra-szimbólumok, 
amelyek egy-egy művelettípust vagy eszközt jelölnek. 

A következőkben áttekintjük a gyakrabban használt folyamatábra- 
szimbólumokat : 


Tárolóeszközök 


Mágnesszalag-állomány 


une 


Mágneslemez-állomány 


Perifériák és a velük kapcsolatos műveletek 


Sornyomtató, bemeneti bizonylat, kiírás (lista) 


Képernyős terminál 
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Billentyűzet, kézi adatbevitel 


Műveletek 


i 


Bemeneti vagy kimeneti művelet 
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104 


Rajztechnikai jelek 


Megjegyzés 


EöSéBEs 


Tetszőleges műveleti jelkép. A művelet meg- 
határozását a téglalapba kell beírni 


Döntés. A döntés valamilyen vizsgálaton 
alapszik. A vizsgálat eredményeként a prog- 
ram végrehajtása 2—3 irányban haladhat to- 
vább 


Külön meghatározott művelet, amely önmaga 
is egy több lépéses folyamatábra lehet. Akkor 
használjuk, ha a folyamatábrában egy, már 
máshol meghatározott műveletsorozatot nem 
akarunk részletezni 


Határoló jelkép. A folyamat kezdetén és vé- 
gén alkalmazzuk 


Folyamatvonal a folyamat-végrehajtás . irá- 
nyával 


Folyamatvonalak keresztezése 


Magyarázó jelkép, amely valamilyen folyamat- 
ábrajelhez kapcsolódik. Akkor használjuk, ha 
a kívánt szöveg nem fér el a szimbólumban. 
A kiegészítő szöveget a magyarázó jelkép jobb 
oldalára írjuk 


A folyamatábra-jelölések egyszerűek és könnyen érthetők. Rajzolá- 
suk megkönnyítésére a kereskedelemben folyamatábra-sablonok kap- 


hatók. 


A modul funkcióját megvalósító folyamat sokféleképpen mehet vég- 
be. A programozók körében elfogadottá vált az az elv, hogy az algorit- 
musokban három algoritmustípust elegendő alkalmazni. Ezeket a folya- 
mat-, építőköveket" fogjuk mi is felhasználni: 
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SZEKVENCIA 


Két vagy több utasításból álló utasítássorozat (lásd 11. ábra). Egy szek- 
vencia tetszőleges típusú és számú műveletet tartalmazhat. 


FELTÉTELES ELÁGAZÁSOK 
Valamilyen feltételtől függően 


— egy műveletet vagy végrehajtunk, vagy nem (12. ábra); 

— két művelet közül csak az egyiket hajtjuk végre (13. ábra); 

— kettőnél több művelet közül valamelyiket végrehajtjuk (14. ábra). 
Példaként említjük a szorzatkitaláló feladatot. 


1. művelet 
2.művelet 


mar 
művelet 


11. ábra. Szekvenciális műveletek 12. ábra. Az IF THEN típusú szerkezet 


mar 
művelet 


eg 
művelet 


13. ábra. Az IF THEN ELSE típusú Szerkezet 
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n. művelet 


14. ábra. A CASE típusú szerkezet 


Megfogalmazhatunk egy olyan részfeladatot, hogy a gép által kiszámí- 


tott helyes szorzatot csak akkor írja ki a gép a képernyőre, ha a játékos 


helytelen értéket gépelt be. Ez az első típusú folyamat. Ilyenkor a kiírá- 
si műveletet csak akkor kell végrehajtani, ha a számított és a begépelt 
összegek eltérőek, egyébként nem. 

Megfogalmazhatjuk olyan formában is a részfeladatot, hogy ha a játé- 
kos eltalálja az eredményt, akkor elismerésként a , GRATULALOK" 
üzenetet, ha nem találta el, a , SAJNOS, EZ ROSSZ" üzenetet kel! ki- 
írni. Ez a második típusú folyamat alkalmazását teszi szükségessé, mivel 
valamelyik üzenetet mindig ki kell írni. A több műveletből való kivá- 
lasztásra a 6. részben fogunk látni egy feladatot. 


CIKLUS 


Ha például egy raktárban levő anyagok értékét kell kiszámítani, akkor 
minden anyag esetében az egységár és a mennyiség szorzatát kell kiszá- 
molni és az eredményt összegezni. Ilyenkor a művelet elvégzését nem 
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érdemes annyiszor leírni, ahányszor végre kell hajtani, hanem a művele- 
tet ciklikusan kell megismételni az összes anyag adataival. A ciklikus 
műveletek végét valamilyen feltétel határozza meg (pl. ha minden anyag 
értékét kiszámítottuk). 

A ciklikus műveletek a végfeltétel-vizsgálat helyétől függően két for- 
mában hajthatók végre: 


— elöl tesztelő, 
— hátul tesztelő. 


Az elöl tesztelő típusú szerkezetben a ciklikus művelet elvégzése előtt -- 
kell megvizsgálni azt a feltételt, amely alapján el lehet dönteni, hogy 
szükség van-e még a művelet elvégzésére (15. ábra). 

A hátul tesztelő típusú szerkezetben előbb a műveletet kell végrehaj- 
tani, utána kell vizsgálni a további ismétlés feltételét (16. ábra). 

A ,,tiszta;; esetek mellett vannak olyanok is, amikor az abbahagyás 
(vagy folytatás) feltételét sem elöl, sem hátul, hanem valahol középen 
ellenőrizzük. 

Most pedig nézzük meg a feladatmegoldás első három lépését egy 
konkrét feladaton! 


1. feladat 


Adva van a 17. ábrán látható ellenállásokból álló hálózat. Meg kell határozni az A és 
B pont közötti eredő ellenállást. Az ellenállások értékei: 


R1 — 1000 ohm 


R2 — 2000 ohm 
; R3— 500 ohm 
ms R4— 200 ohm 


Folytatás 
feltétele 


igaz 


Ciklusművelet 


Befejezés 
feltétele 


igaz 


15. ábra. Az elöl tesztelő ciklusszerkezet 16. ábra. A hátul tesztelő ciklusszerkezet 
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B 17. ábra. Az I. feladat 


A program az alábbi formában írja ki az eredő ellenállás értékét: 
AZ EREDO ELLENALLAS (OHM): Xx 


A feladat elemzése 


Nézzük meg, mit eredményez a feladat elemzése! A feladat az eredő ellenállás meg- 
határozása ismert adatokból. A feladat számítógéppel megoldható. A feladatot meg- 
oldó programnak az alábbi főbb funkciókat kell megvalósítania: 


— a bemeneti adatok (az ellenállásértékek) tárolása, 
— az eredő ellenállás kiszámítása, 
— az eredő ellenállás értékének kiírása. 


A feladatban felmerült eredő ellenállást az ismert összefüggés alapján lehet kiszá- 
mítani: 


1 
R9—-— Mi  4nR4 
Ad 1 01 
RitR2tR3 


Végül elkészítjük a feladat modulokra bontásának első közelítését (18. ábra). 


(2) 
Ellenállás - 
számítás 


C1) (3) 
Bemeneti adatok Eredmény - 
tárolása kiírás 


18. ábra. A feladat modulszerkezete 
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EIT JENNESÉNÉÉNESESÉNÉNENNÉNÉNÉ 7 


KEZDES 


R1, R2, R3, R4 


. (4 fd 


értékadás 


EZAZ ÖN SGMSNNENENNGNSS NN a] 


Fejlécés 
R9 kiírás 


Nyomtatás 
TEZYSSS SET Ta is lehet 


! 
j 
j 
! 
w 
j 
l 
I 
l 
l 


! 
j 
! 
l 
! 
j 
] 
j 
l 
! 
l 
l 
! 
ezen te BE EGEELÉRNENAL RÉS 97 ÉRE MERNE RENÉE d 
l 
l 
[j 
j 
l 
j 
j 
j 
j 
! 
l 
j 
! 
[j 
d 


19. ábra. A modulok folyamata 
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A program tervezése 


Most pedig végezzük el a programtervezés folyamatát a feladaton! 

A probléma egyszerűsége miatt nincs szükség a modulszerkezet további finomí- 
tására. Igy az elemzéskor kapott modulszerkezetet a programtervezés alapjának is 
tekinthetjük. 

Látható, hogy a modulokat egyszerű szekvencia szerint [(1), (2), (3)] kell végre- 
hajtani, ezért a feladat egyszerűsítése végett a vezérlőmodul alkalmazásától elte- 
kintünk (18. ábra). 


A modulok tervezése 


(1) A bemeneti adatok tárolása ai 

A modul adat típusú, mert egyetlen funkciója a négy ellenállásérték tárolása. Ön- 
álló bemeneti adatai nincsenek, a kimeneti adatokat az ellenállások értékei adják. 
A modul algoritmusa az R1, R2, R3, R4 változó értékeinek megadása (19. ábra). 


(2) Ellenállás-számítás 

A modul eljárás típusú, mert feldolgozást végez. Bemenete a négy ellenállásérték, 
kimeneti adata az R9 eredő ellenállás. Az alkalmazott algoritmus a soros és párhu- 
zamos ellenállásokból álló hálózat eredőellenállás-számítására vonatkozó ismert 
kifejezésre épül: 


R9—— li 4nR4 
ad 1 1 
Ri tR2tR3 


Először határozzuk meg a tört nevezőjében álló kifejezést, jelöljük KO-val, majd en- 
nek vegyük a reciprokát. Ezzel a jobb oldal első tagját kiszámítottuk. Az R4 érték 
hozzáadásával megkapjuk R9-et. Az algoritmust a 19. ábra mutatja. 


(3) Eredménykiírás 
Ez is eljárás típusú modul. Bemeneti adata a (2) modulból származó R9 eredő 
ellenállás értéke. Az eredményadat ugyanez, de kiírva. 

A specifikáció szerint a modulnak egy megadott szöveg után ki kell írnia az ere- 
dő ellenállás értékét. Ezt egy lépésben el lehet végezni (lásd 19. ábra). A kiírás után 
a program befejeződik. 


Ellenőrző kérdések és feladatok 


1. Egy számítógépes feladat megoldása milyen főbb lépésekből áll? 
. Mi a program? 


. Milyen lépésekből áll egy feladat megoldása? 


Aa HW KB 


. Munkahelyén vagy otthon keressen egy megoldandó feladatot, és végezze el a 
feladatmegoldás első három lépését! 
Milyen feltételek teljesülése mellett oldható meg a feladat számítógéppel? 
Mennyivel nyújt többet a számítógépes megoldás, mint a jelenlegi ún. , kézi" 
megoldás? 


5. Milyen rajzjeleket használt a modulok műveleteinek ábrázolásához? 


Ebben a részben folytatjuk a programkészítés lépéseinek részletes be- 
mutatását és a lépések illusztrálásaként befejezzük az 1. feladatot. 


A FELADATMEGOLDÁS FOLYAMATA 
(FOLYTATÁS A 3. RÉSZBŐL) 


A KÓDOLÁS 


A kódolás a folyamatábrában rögzített műveletek megfogalmazása az 
adott programnyelven, jelen esetben BASIC nyelven. A kódolást modu- 
lonként külön-külön, a folyamatábra alapján kell elvégezni. A kódolás 
eredményei az utasítássorok vagy röviden utasítások. A folyamatábra 
lefordításánál figyelembe kell venni az adott nyelv lehetőségeit, sajátos- 
ságait. Ezért nem csupán szóról szóra kell fordítani, hanem a program- 
nyelv szerkezeti sajátosságaira is ügyelni kell. 

Egy utasítás egy mondatnak felel meg. Az utasítások a BASIC nyelv- 
ben , mondattanilag" két részből állnak : a kulcsszóból, amely a mondat 
állítnmányának felel meg, és az utasítás tárgyából, amely azt mutatja, 
hogy mire vonatkozik az utasítás. 

A végrehajtás sorrendjének meghatározásához . az utasítások sorszá- 
mot is kapnak. A sorrend kijelölésén kívül ez az utasítás azonosítója is, 
ezzel hivatkozhatunk az utasításra. 

Egy BASIC utasítás tehát három részből áll: 


sorszám, utasításkulcsszó , az utasítás tárgya. 


Célszerű, de nem kötelező az egyes részek között legalább egy szóközt 
hagyni, de a sorszámon és az utasításkulcsszón belül nem lehet szóközt 
Írni. Az elmondottak értelmében formailag helyesek a következő utasí- 
tások: 

1006LETLA-8B 
vagy 

100L£ETA-—8 
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(A u jelet egy szóköz jelölésére használjuk a kritikus esetekben, amikor a 
szóköznek nagy jelentősége van.) 
Formailag hibásak az alábbi sorok: 


1004LSE.T .A—8 


vagy 
16060 LET A—8 


A BASIC utasításokat sorokba írjuk. Általában egy sorba egy utasítást 
írunk. Könyvünk további részében — néhány esetet kivéve — ezt a sza- 
bályt fogjuk alkalmazni. 

Felhívjuk a figyelmet, hogy egy sor nem azonos egy, a képernyőn 
megjelenített sorral (ez a képernyősor). Egy sor addig tart, amíg le nem 
nyomjuk a sorzáró karaktert. Egy utasítássor tehát több sort is elfoglal- 
hat a képernyőn. Természetesen a sorhossznak van felső határa. Ez a 
különböző gépeknél a következő: 


Commodore : 80 jel (2 teljes képernyősor), 


[ HT: 240 jel, 
A PRIMO: 210 jel (5 teljes képernyősor), 
e Sinclair-gépeknél a tár szab határt. 


Egy sorba legfeljebb ennyi jelet írhatunk. Ha egy sor betelik az utasítás- 
soron belül, akkor a gép automatikusan sort emel, és a helyőr a sor ele- 
jére ugrik. 

Megjegyezzük, hogy egy utasítássorba több utasítást is írhatunk, de 
egy utasítást sohasem szabad két utasítássorba írni! Ha egy sorba több 
utasítást írunk, akkor ezeket kettősponttal kell elválasztani. Ha egy sor- 
ban több utasítás van, akkor ezt többszörös utasításnak nevezzük. 
A program áttekinthetősége kedvéért a többszörös utasítások használa- 
tát kerülni kell, különösen kezdőknek. 

Most pedig vizsgáljuk meg az utasítások részeit! 


A SORSZÁM 


Mint már láttuk, a program utasítássorait sorszámmal kell ellátni. 
A program futásakor az egyes utasítások a legalacsonyabb sorszámtól 
a sorszámok növekvő sorrendjében hajtódnak végre. Egy sorban csak a 
sor elején lehet egy sorszám. Többszörös utasításoknál a sorban levő el- 
ső utasítás kap sorszámot, a többi nem. 

Említettük már, hogy a sorszám az utasítás azonosítója, ezzel hivat- 
kozhatunk rá. Ha egy sorban például valamilyen szintaktikai (formai) 
hiba van, akkor a gép a hibaüzenetben a hibás sor számát is kiírja. Így a 
programozó rögtön tudja, hol keresse a hibát. 

A sorszámot a program készítője határozza meg. A program első uta- 
sítása kapja a legalacsonyabb sorszámot, a többi utasítást a végrehajtás 
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sorrendjének megfelelően növekvő sorszámmal kell ellátni. A sorszám 
téves begépelése az utasítás végrehajtási sorrendjét megváltoztathatja, 
és a program hibásan fog működni. 

Ha két utasítást ugyanazzal a sorszámmal gépelünk be, akkor a má- 
sodszorra beírt utasítás az elsőt törli, mivel a gép azt az illető utasítás 
javításának tekinti. 

A sorszám szerinti végrehajtást néhány utasítás megváltoztathatja. 
Ezeket — a többi utasítással együtt — a következőkben részletesen be- 
mutatjuk. 

Bár az utasítások végrehajtási sorrendjét nem a begépelésük sorrend- 
je határozza meg, hanem a sorszámuk, mégis célszerű az utasításokat a 
végrehajtás sorrendjében begépelni. 

Az utasítások sorszámozása a következő lehet: 


Commodore: 1-től 32767-ig, 
u HT és A PRIMO: 1-től 65529-ig, 
e Sinclair: 1-től 9999-ig. 


Ez a szám elég nagy ahhoz, hogy ne okozzon gondot. 

Ajánlatos az utasításokat ötösével vagy tízesével sorszámozni. Ha 
ugyanis a helyes működés végett az utasítások közé újabb utasítást kell 
beszúrni, akkor ez az utasítás (vagy utasítások) megkaphatja a fel nem 
használt sorszámot. Ha egyesével számozzuk az utasításokat, akkor egy 
kényszerű beszúrásnál át kell sorszámozni az egész programot. 

n A HT és a a PRIMO gépeknél automatikus sorszámozó lehető- 
ség is van, amely programíráskor maga ad sorszámot az utasítá- 
soknak. Ezt az 


AUTO sorszám, növekmény 


paranccsal lehet működtetni. A sorszám-mal kezdő sorszámot 
lehet megadni, a növekmény a két egymás után következő 
utasítás sorszámának különbsége. Ha a növekményt nem adjuk 
meg, akkor a gép 10-nek veszi. Ha a sorszámot nem adjuk meg, 
akkor a sorszámozás a 10-nél fog kezdődni. 

A parancs kiadása után hozzákezdhetünk a program begépe- 
léséhez. A u NEW LINE, illetve aA RETURN lenyomása után a 
következő sor elején megjelenik a következő utasítás sorszáma. 
Így ezt már nem kell begépelni. Ha beírtuk a programot, a a HT 
esetében a BREAK, 4 a PRIMO esetében a BRK gombot kell 
lenyomni, és ezzel az automatikus sorszámozás befejeződik, a 
gép visszakerül a szokásos üzemmódba. 
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AZ UTASÍTÁSKULCSSZÓ 


Az utasításkulcsszó műveletet határoz meg. Az utasításkulcsszavak meg- 
határozott szavak, a függelékben megtalálhatók. Az utasításkulcsszava- 
kat csak a megadott formában — szintaktika szerint — lehet használni. 
Mindemellett minden utasításnak a Commodore-on és 


A a PRIMO-n van úgynevezett rövidített — két karakterből álló — 
formája is. 

e A Sinclair-gépeknél az utasítások billentyűkön vannak, így egyet- 
len gomb lenyomásával egy utasítás beírható, elgépelni nem 
lehet. 


Itt most egyetlen utasítást mutatunk be, amely műveletet nem hajt vég- 
re, de dokumentációs szempontból fontos. Ez a megjegyzést jelölő 
REM utasításkulcsszó : 


30 REM ITT KEZDODIK A SZAMOLAS 


Ez az utasítás azt jelenti, hogy a számítógépnek semmilyen műveletet 
sem kell elvégeznie, áttérhet a következő utasítás végrehajtására. Az uta- 
sítás tárgyában levő szöveget a programozó saját magának beírja, hogy 
a program nevezetes pontjait megjelölje, dokumentálási céllal. 


AZ UTASÍTÁS TÁRGYA 


Az utasítás tárgya legtöbbször valamilyen adat, amellyel valamit elvégez 
a gép, de lehet utasítássorszám is. Van olyan típusú utasítás is, amelyhez 
nem tartozik tárgy. Az utasítás tárgyára majd az egyes utasítások bemu- 
tatásánál láthatunk példát. 


A KÓDOLÁS MÓDSZERE 


A programkódot tanácsos először kódlapra (vagy más papírra) megírni, 
és csak ellenőrzés után begépelni. Nem javasoljuk a rögtönzött kódolást 
a terminálon a folyamatábra alapján, mert az még rövid, egyszerű mo- 
duloknál is nagyon sok hibát okozhat. A kódolásnál érdemes néhány 
szót szólni a dokumentációról. 

A programdokumentáció a programról rendelkezésre álló írásos infor- 
máció. A dokumentációnak írásban kell rögzítenie a program célját, a 
feladat megoldási és az adatok tárolási módját, a bemeneti, az eredmény- 
adatokat, és általában minden olyan adatot, amely lehetővé teszi, hogy 
más szakember is megismerje, megértse programunkat. Lényeges, hogy 
a dokumentáció segítse a program készítőjét vagy javítóját, hogy a prog- 
ramot — ha módosítani kell — 1—2 év után is megértse. 
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Az alkalmazott módszernek megfelelően a következő dokumentu- 
mok készülnek a programmal párhuzamosan: 


— feladatleírás, 

— a feladat elemzése és a szerkezet, 

— a program terve, 

— az egyes modulok terve, 

— az adatok tárolási módja (állományleírások, tömbök), 
— a programkód listája, 

— a felhasználói utasítás (kézikönyv). 


Valamennyi programdokumentummal kapcsolatban általános követel- 
mény, hogy az érdekeltek hozzáférhessenek. Ezért a felhasználók szá- 
mának és igényeinek megfelelő példányszámban és minőségben kell a 
dokumentumokat elkészíteni. A dokumentáció legyen tömör, világos 
szerkezetű. 

A dokumentumok közül kettőt emelünk itt ki, a többit a feladatok 
megoldása során ismerjük meg. A programkód listája a program egyes 
sorainak a listája abban a formában, ahogy a program tárolódik. A prog- 
ramlista önmagában nem beszédes dokumentum. Olvashatóságát növeli, 
ha a REM utasítással különböző magyarázatokat, közléseket helyezünk 
el benne. REM utasításokkal a program elejére beírhatjuk a program ne- 
vét. Egy ilyen megoldás: 


19 REMEKEKREEKKFKEKKKÁK 


29 REMx x 
39 REMK TRE.NO kk 
470 REMx xk 


59 REMKKIKKKKKXKRKXKKÁK 


Sormintának a csillag helyett bármilyen más, BASIC által ismert karak- 
tert alkalmazhatunk. A REM utasítással üzeneteket helyezhetünk el a 
program kritikus pontjain vagy az egyes programmodulok elején : 


299 REMAkkkk OSSZEG KIIRAS kiiíkiKk 
Változók jelentését is megadhatjuk: 


398 REM IL: IDOLEPTEK 


A BASIC-ben a programot a 
LIST 


paranccsal listázhatjuk ki a képernyőre, vagy a program egy részét, ha 
megadjuk a rész kezdő- (n) és a zárósorának (m) sorszámát a LIST pa- 
rancsban: 

LIST n—m 
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Ha csak a kezdő sorszámot adjuk meg, akkor a gép a megadott sorszám. 
tól kezdve kiírja az egész programot: 


LIST n— 


Ha viszont csak a záró sorszámot adjuk meg, akkor a gép a program kez: 
dőrészét írja ki az m sorszámig: 


LIST —m 
Végül egyetlen sort is ki lehet listázni, ha megadjuk a sorszámot: 
LIST n 
A A PRIMO gépen a RETURN lenyomása után csak az első ki. 


írandó sor jelenik meg. A listázás csak akkor folytatódik, ha a 
RETURN gombot lenyomva tartjuk és csak addig listáz a gép, 
amíg az ujjunk a RETURN gombon van. i 


e A Sinclair-gépek a LIST parancs hatására egy képernyőnyi részt 
írnak ki. Ekkor megjelenik a 


seroll? 


kérdés. Ha a listázást folytatni akarjuk, akkor az Y-t, ha nem, 
akkor az N betűt kell leütni. A LIST n parancs hatására a gép 
legalább az n. sorszámú sortól kezdve egy képernyőnyi listát 
készít. 


A képernyőn megjelenő lista nem marad meg, és így mint dokumentum 
nem használható. A lista akkor látja el legjobban feladatát, ha a gép ma- 
radandó formában tudja elkészíteni. Erre a legjobb megoldás, ha a lista 
nyomtatva készül. Ha a számítógéphez nyomtató is tartozik, akkor a 
listát kinyomtathatjuk. Commodore-géppel a program listáját az alábbi 
többszörös paranccsal lehet elkészíteni : 


GPEN3 , 4: CMDS:LIST 


ahol 
OPEN3 — megnyitja a nyomtató és a gép közötti utat (csa- 
tornát) 3 hivatkozási számmal, 
4 — a nyomtató száma, 
CMD3 — a képernyőről átirányítja a kiírást a 3 hivatkozási 
számmal megnyitott eszközre, 
LIST — a listázás parancsszava. 


A parancs hatására a gép kiírja a tárban levő program listáját a nyomta- 
tóra. A lista kiírása után a kiírást vissza kell állítani a képernyőre, ezért 
a gép és a nyomtató közötti utat le kell zárni a következő paranccsal: 


PRINT$43:CLOSE3 
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PRINT$3 — egy üres kiírási parancs a sornyomtató csator- 
nájának lezárása előtt, 
CLOSE3 — lezárja a csatornát. 
[ A HT gép, 4 a PRIMO és e a Sinclair-gépek esetében a tárban 


levő programot az 
LLIST 


parancs kiadásával lehet nyomtatóra kiíratni. A parancs ugyanúgy 
használható, mint a LIST utasítás. (Megjegyezzük, hogy a HT 
géphez csak egy külön csatolóegységen keresztül lehet nyomta- 
tót csatlakoztatni.) 


A felhasználói kézikönyv a program felhasználójának készül. Meg- 
mutatja, hogy a programot hogyan lehet használni az adott feladat meg- 
oldására. Tartalmaznia kell a végrehajtáshoz szükséges bemeneti adato- 
kat és bevitelük módját, a futtatás (végrehajtás) parancsait, az eredmény- 
adatok kezelését, a program üzemszerű szolgáltatásait. Meg kell adnia a 
különböző hibáknál kiadott hibaüzenetek értelmezését és a hiba elhárí- 
tásához szükséges tevékenységeket. 


A PROGRAM KIPRÓBÁLÁSA 


A tesztelés a program elkészülése utáni munkafázis, célja, hogy megálla- 
pítsa, helyesen működik-e a program. Ha kiderül, hogy nem, akkor a 
program hibás. Ekkor a hibát meg kell keresni, ki kell javítani, és a 
programot újra kell futtatni. 

A tesztelés általánosan elfogadott elve, hogy 


— előbb modulonként, majd 
— az egész programra és 
— a megtervezett próbaadatokkal 


kell elvégezni. A modulonkénti tesztelés azért kedvező, mert egy vi- 
szonylag kicsi, jól áttekinthető részt fog át. Valamennyi modul ellen- 
őrzése után az egész programot is tesztelni kell. A megtervezett próba- 
adatok jelentősége abban áll, hogy minél kevesebb próbaadattal minél 
teljesebb ellenőrzést lehessen elvégezni. 

A tesztelés lényege, hogy különböző bemeneti adatokkal próbáljuk 
ki a programot (illetve a modulokat) , és közben figyeljük, hogy a speci- 
fikáció szerint működik-e. A hibakeresés nehezen formalizálható, sok 
intuíciót követelő tevékenység. Még könyörtelenebb logikát kíván a 
program készítőjétől, mint a program tervezése vagy írása. Egy program 
elkészítése során a hibakeresés szokta okozni a legnehezebb perceket, 
órákat. Gyakran maga a program készítője is , ciklusba esik", és nem 
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dolni, hogy mi a jelenség oka, mi idézi elő, és hogyan javítható ki. Bár- 
milyen hibakeresés alapja, hogy a felhasználó a programlista alapján 
tájékozódjék, mi lehet a hiba. 

Az első futások eredménye a szintaktikai (formai) hibák kimutatása 
lesz. A szintaktikai hibák kijavítása után olyan tesztadatokat kell meg- 
adni, amelyek lehetőleg minden utasítást kipróbálnak, eközben figyelni 
kell a működés helyességét. Ebbe a fázisba tartoznak a szélsőséges ada- 
tok is, amelyek a legszigorúbb követelményeket jelentik (pl. mit csinál 
a modul akkor, ha a felhasználó tévesen negatív számot ad meg egy dol- 
gozó bérének). Ha a modul nem a specifikáció szerint működik, akkor a 
hibakeresésre térünk át. 

A hibakeresés egyik eszköze a program listája. Hiba esetén a program- 
lista alapján ellenőrizni kell, hogy melyik utasítás vagy utasításcsoport 
idézi elő a hibát. Lehet, hogy csak egy elgépelés a hiba oka, de lehet az 
is, hogy valamit nem vettünk figyelembe, valamit kifelejtettünk stb. Ezt 
kell megkeresni a lista alapján. Ha nem sikerül, akkor más eszközhöz is 
folyamodhatunk. 

Egy másik eszköz a STOP utasítás és a közvetlen mód együttes hasz- 
nálata, amit az 1. részben ismertünk meg. A STOP utasítás a BASIC 
programokban használható utasítás. Hatására a program leáll, és a 


BREAK IN LINE 500 


üzenetet, 
e a Sinclair-gépeknél a 9 STOP statement üzenetet írja ki. 


A LINE szó után álló szám a STOP utasítás sorszáma, ahol leállt a 
program. 

Ekkor közvetlen módban ki lehet íratni az egyes változók aktuális 
értékét. Legyen például az alábbi program: 


íg LET A-5 
eg sTüpP 
38 LET B-4 


A program végrehajtása után a 
BREAK INLINE 20 


üzenet jelenik meg, és a program leáll. 
Ekkor közvetlen módban ki lehet íratni az A változó értékét: 


PRINT A 
5 


Ezzel a módszerrel meg tudjuk vizsgálni, hogy a program egy adott 
pontján a változóknak mi az értéke. Ebből nagyon sok következtetést le 
lehet vonni. Kiderülhet, hogy valamilyen műveletet kihagytunk, valami- 
lyen műveleti jelet rosszul írtunk be stb. 
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tud megszabadulni attól a gondolattól, hogy a program biztosan jó, 
valami rejtélyes dolog okozza a hibát. Ilyenkor logikusan végig kell gon- 
A STOP utasítással leállított program a 


CONT 


parancs kiadásával folytatható a leállás helyétől. Egy programot több 
helyen is meg lehet szakítani szükség esetén, és mindenütt folytatható a 
CONT paranccsal. A közvetlen mód fenti alkalmazása a program végén 
is lehetséges. 

A felfedett hiba jellegétől függően javítható ki. Ha elemzési hiányos- 
ság okozta, akkor vissza kell térni az elemzésre, és a programot újra kell 
tervezni, illetve a tervet módosítani. Ugyanez érvényes a modulokra és 
a kódra is. Ha a hibát a tervezésben követtük el, akkor csak ide kell 
visszatérni. A legegyszerűbb esetben pedig csak a kódot kell kijavítani. 


A PROGRAM VÉGREHAJTÁSA 


Az elkészült (vagy félkész) programot a 
RUN 


paranccsal futtathatjuk le. A parancs hatására a számítógép a program 
utasításait a sorszámoknak megfelelő sorrendben végrehajtja. Ha eköz- 
ben formai (szintaktikai) hibát talál, a futás leáll, és hibaüzenet jelenik 
meg. A normális végrehajtást az jelzi, hogy a gép nem ad ki hibaüzene- 
tet, és megjelenik a READY üzenet. 


A KAPOTT EREDMÉNYEK ÉRTÉKELÉSE 


Ennél a lépésnél feltételezzük, hogy programunk hibátlanul működik. 
Azt kell vizsgálni, hogy helyes volt-e a megoldás elve, valóban a várt 
eredményt kaptuk-e stb. Emellett a működés körülményeit is ellenőriz- 
ni kell, nevezetesen azt, hogy nem lehet-e lerövidíteni a program végre- 
hajtását, nem tudunk-e biztonságosabb megoldást találni. Ez az utolsó 
lépés az előzőektől eltérően kevésbé formalizálható, és nagymértékben 
függ a feladattól. 


KÓDOLÁSI ALAPISMERETEK 


A programkészítés lépéseinek áttekintése után térjünk vissza az 1. fel- 
adat megoldásához, és folytassuk ezt a programkód elkészítésével. Előbb 
azonban a program elkészítéséhez szükséges kódolási alapismeretekkel 
és utasításokkal foglalkozunk. 
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A VÁLTOZÓ 


A számítástechnikában — a matematikában kialakult fogalomhoz ha- 
sonlóan — a változó olyan adat, amelynek értéke változhat a feldolgozás 
közben. Ezért jellemzője nem egy konkrét érték, hanem a logikai funk- 
ció, amit a feldolgozásban betölt. A változóra egy szimbolikus névvel 
hivatkozunk, amely önállósítja és elkülöníti a többi adattól. 

A számítástechnikában a változónak mindig konkrét értéke van, és ez 
a tárban tárolódik. Ha a változóval végzett műveletek során az értéke 
megváltozik, a korábbi érték elvész, és csak az új marad meg. 

A változók tartalmuk szerint három típusba sorolhatók: 


— numerikus 
— egész értékű (numerikus) 
— szöveges 


Ebben a részben az első kettőt mutatjuk be, a szöveges változókat a 
6. részben ismerjük meg. 

A numerikus változók értéke egy valós szám lehet. A BASIC nyelv- 
ben betűkből és számokból álló neveket kaphatnak. Ez a név nem lehet 
utasításkulcsszó vagy bármilyen védett BASIC üzenet, parancs, függ- 
vénynév. A változónév hossza BASIC-változatonként eltérő, az általunk 
használt három gépen (Commodore—64, m HT, A PRIMO) legfeljebb 16 
karakter lehet, amelyből az első csak betű lehet. A gép viszont csak az 
első két karaktert jegyzi meg. Nézzük például az alábbi két változónevet: 


ABLAK 
ABBA 


A gép nem tesz különbséget a két változó között, mivel a két első ka- 
rakter egyezik mindkét névben. A következőket azonban különbözőnek 
tekinti: I 

A1BEM 

AZ2BEM 


A tévesztés lehetőségének elkerülésére a továbbiakban csak legfeljebb 
két karakter hosszúságú változóneveket fogunk használni. Az egész érté- 
kű változó csak egész értéket vehet fel bármilyen művelet eredménye- 
ként. 

A változónévben kikötéseket tehetünk a változó típusára is. Így pél- 
dául előírhatjuk, hogy egy változó csak egész (integer) legyen. Ilyen 
esetben a változó nevéhez a 9 jelet kapcsoljuk. Ha ilyen megkülönböz- 
tetést nem teszünk, akkor a változó értéke vegyes szám lesz. 

A fentiek értelmezésére nézzünk néhány helyes, illetve helytelen vál- 
tozónevet: 
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Helyes változónevek Helytelen változónevek 


AB A.B (pontot tartalmaz) 
AB9 1F (számmal kezdődik) 
X1 I F92 (a 99 után még áll 
valami) 
X9 ABBA (formailag helyes, de 


kerülendő, mivel 4 
karakterből áll) 


e A Sinclair-gépeken a numerikus változók neve betűvel kezdődik, 
és betűkből, valamint számokból állnak. Hosszukat a tárméret 
korlátozza. Egész típusú változó nincs ezeken a gépeken. Érde- 
mes megjegyezni, hogy ugyan kis- és nagybetűket lehet alkal- 
mazni a változók nevéhez, de ugyanannak a betűnek a kis és 
nagy változatát azonos betűnek tekinti. Néhány példa: 


FA 


Helyes változónevek Helytelen változónevek 
OSSZEG T1OSSZEG (számmal kez- 
dődik) 
EGY ES KETTO EE—KK (a kötőjel nem meg- 
engedett) 
Vacak3 
VACAK3 
A gép a két utóbbi helyes változónevet nem tekinti különbö- 
zőnek. 


A BASIC nyelvben a változókat nem szükséges a program elején meg- 
határozni. A programban bárhol lehet új változókat bevezetni. A BASIC 
minden numerikus változónak automatikusan O értéket ad, ha valame- 
lyik utasításban nem kap értéket. 


FELDOLGOZÁSI LÉPÉSEK 
A feldolgozás során az adatokkal számításokat, illetve logikai művelete- 


ket végzünk. A számítási műveletek a BASIC-ben egyszerűen megad- 
hatók: . 


A TÉVÉS EZRYRESEÉSER A művelet BASIC-ben 
A-B . AtB 
A-B A—B 
A "B AzcB 
A:B A/B 


A? At2 


Gyökvonás törtkitevős hatványozással végezhető el. 

A változók és a közöttük álló műveleti jelek kifejezést alkotnak, 
amellyel valamit ki tudunk számítani. Egy kifejezés értékének kiszámí- 
tását és egy változóban való megőrzését értékadásnak nevezzük. Erre 
szolgál a már látott 

LET 


utasítás. — 
Ha az A":B szorzatot egy C változóban akarjuk tárolni (megőrizni), 
akkor ezt a következő utasítással érhetjük el: 


70 LET C—AxB 
A LET utasításkulcsszót el is hagyhatjuk a Sinclair-gépek kivételével: 
70 C—-AxB 


Az értékadó utasításban tehát egy egyenlőségjel fejezi ki az értékadást 
(egyenlővé tevést) . Az egyenlőségjel bal oldalán mindig egyetlen változó 
állhat, a jobb oldalán pedig egy tetszés szerinti kifejezés. Megjegyezzük, 


hogy a bal oldali változó valamelyik jobb oldalon álló változó is lehet: 


70 A—-AseB 


Ez azt jelenti, hogy A értéke felveszi az AxB szorzat értékét. Nagyon 
fontos, hogy az egyenlőségjel jobb és bal oldala akkor sem cserélhető 
fel, ha mindkettőn egy-egy változó áll. Például a 


80 A-B 
utasítás azt jelenti, hogy A felveszi B értékét. Ha 


B-5, 
akkor az utasítás hatására 
A-—5 


lesz. Ha felcseréljük az egyenlőség jobb és bal oldalán álló változókat, 
akkor az eredmény más lesz. 
80 B—-A 


Eszerint B veszi fel A értékét. Ha A— 10 volt, akkor az utasítás hatására 
B is 10 lesz. A két eredmény tehát nem egyezik. 

A bonyolultabb kifejezések sok műveletet tartalmaznak, ezért az egy- 
értelműség kedvéért a műveletek között elsőbbségi rangsort kell kialakí- 
tani. A BASIC nyelvben is megengedett a zárójelek használata (figyeljük 
meg, hogy van nyitó és záró zárójel). A zárójelek ugyanolyan művelet- 
végzési sorrendet írnak elő, mint ahogy azt a matematika is előírja: a 
legbelső zárójeles kifejezést számítja ki először a program, majd innen 
fokozatosan halad kifelé: i 
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i 
i 


((A1 -k B1) x(A2- B2)) tK 


.1- lépés " 2. lépés 


3. lépés 


— sss 


4. lépés 


A zárójeles kifejezésrészen belül vagy a zárójel nélküli kifejezésben az 
egyes műveletek sorrendjében a következő prioritási szabályok érvénye- 
sülnek: 


1. Hatványozás. 

2. Szorzás és osztás (ha több van, akkor ezek elvégzése egymás után, 
balról jobbra halad. 

3. Összeadás és kivonás azonos prioritással (ha több van ezekből a mű- 
veletekből, akkor a kiszámítás itt is balról jobbra halad). 


Ha egy kifejezésben több azonos szintű szabályba tartozó művelet van, 
akkor a műveletek kifejtése balról jobbra halad: 


AzeB/C 
Értelmezése: 


vagy 


94 -Pp 
d 
bzs 


vagy 


Vigyázzunk! Az alábbi értelmezés helytelen: 


1. E—-Ai-B 
2. F—E/C 
3. G—FxD 
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AZ EREDMÉNYEK KIÍRÁSA 


Mint már az 1. részben láttuk, a feldolgozás eredményeit a PRINT kulcs- 
szavú utasítással lehet kiírni. A PRINT utasítás tárgyában idézőjelbe 
tett karaktereket a program változatlanul kiírja, az idézőjel nélkülieket 
változóknak tekinti, s ezek tartalmát írja ki. Ha az utasítás tárgya kife- 
jezés, akkor ennek értékét előbb kiszámítja és utána írja ki. 

Ha például az eredő ellenállás szöveget akarjuk kiíratni, akkor ezt a 


100 PRINT"TEREDO ELLENALLAS"7 


utasítással lehet elérni. 
Ha a feladat a C változó értékének kiíratása, akkor a 


TIOPRINT C 


utasítást kell megadni. Ha az érték mellett a C változó nevét is ki akar- 
juk íratni, akkor a 
120 PRINT7C—" -C 


utasítással oldhatjuk meg a feladatot. Ennek hatására a program a kö- 
vetkező kiírást végzi el (tegyük fel, hogy C értéke 125): 


C—125 


Figyeljük meg, hogy a kiíratni kívánt adatelemeket pontosvesszővel vá- 
lasztottuk el. 

A BASIC nyelv csak bizonyos intervallumba tartozó számokat ír ki 
fixpontos (valós) formában. A Commodore esetében ezt az intervallu- 
mot a 


0.01 , 999999999 


számok határolják. Az intervallumon kívül eső értéket lebegőpontos 
formában írja ki a gép: 


(előjel) X. XXXXXXXXI 
általános formában. A mantissza (a szám jegyei) 9 jegyű, és az n (kitevő) 


két szélső értéke a 
—39 és 31-38 


A Commodore BASIC esetében a legkisebb szám, amellyel még számo- 
lási művelet végezhető, a 


t2,93873588E—39 


és a legnagyobb a 
H1,70141183E--38 


szám. 
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Egész értékű változó 
—32768 és 14-32767 


közötti értéket vehet fel. 
[j A HT gép 
0.01 és 999999 


intervallumban jeleníti meg a számokat valós formában. 
A legkisebb érték: —1,701411E438 
A legnagyobb érték: 1,701411E438 
Az egész értékű változók intervalluma megegyezik a Commo- 
dore-éval. 
A A PRIMO a 
0.01 és 999999 


intervallumban ír ki számokat valós formában. 

A legkisebb értéke: 9.9E—38 

A legnagyobb érték: 1.7E-1-38 

Az egész értékű változók intervalluma itt is megegyezik a Com- 
modore-éval. 

e A Sinclair-gépek legfeljebb 8 jeggyel írnak ki számokat. Olyan 
számokat, melyek kiírásakor ennél több jegy szükséges, lebegő- 
pontos formában ír ki a gép. 

A legkisebb érték: 10738 
A legnagyobb érték: 1028 


A PROGRAM BEFEJEZÉSE 


A program végét az END utasítással lehet jelölni, de használata nem kö- 
telező. Az END hatására a programvégrehajtás megáll, ezért az END le- 
gyen a legnagyobb sorszámú utasítás. Használata egyszerű: 


500 END 
e A Sinclair-gépeken nincs ilyen utasítás. 


Az 1. feladat befejezése 


Ezek után térjünk vissza az 1. feladathoz, és oldjuk meg az itt bemutatott ismeretek 
begyakorlására. 

A kódolás 

(1) A bemeneti adatok tárolása 

Ez a program első modulja, ezért a modul elejére dokumentációs célból elhelyez- 


zük a program nevét REM utasítások között. Ezután a modul kezdetén a modul 
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TŐ REM E dt dt dt dt dt 3t dE dt dt AE E 9 44 dt dt 


20 REM 4 at 
30 REM 4 EREL at 
4AÓ REM 4 at 


5Ő REM öt dt dt dt dt dt ák dE db d db 9E db dt dt dt 

60 REM 4t 4t 3t 3t 3 BEMENO ADATOK TAROLASA dt dt dt dt 46 

7Ó LET R1 -— 1960 

89Ó LET R2 - 2889 

96 LET R3 — 5988 

1996 LET R4 — 296 

119 REM dt 36 36 8 3 ELLENALLASZSZAMITAS 46 dt 36 dt 9 

129 LET KÓ -1/R1141/R2141/R3 

136 LET RÓ — 1/kKÓ 

149 LET R9-RÉrtR4 

156 REM3t 46 888 EREDMENYKIIRAS dt 46 dt dt dt 

160 PRINT "AZ EREDO ELLENALLAS (OHM):"; R9 e 
178 END 20. ábra. Az 1. feladat kódja 


nevét adjuk meg. A modul tényleges kódjában pedig az egyes ellenállások értékeit 
kell megadni. Ezt a LET értékadó utasítással végezhetjük el. Ezek alapján a kódot 
kézzel megírhatjuk (20. ábra). 


(2) Ellenállás-számítás 

Ez a modul is megoldható értékadó utasításokkal. Figyeljük meg azonban azt a kü- 
lönbséget, hogy itt nem közvetlenül számértéket rendelünk hozzá egy változóhoz, 
hanem az érték egy kifejezés kiszámításával keletkezik. A folyamatábra tagjait egy- 
egy utasítással lehet kódolni. A modul elejére itt is elhelyezzük a modul nevét. Ez a 
modul az (1) modul után hajtódik végre, ezért az utasításokat az (1) modul végé- 
hez folyamatosan sorszámozhatjuk. Ezek után a modul kézzel írt kódja a 20. áb- 
rán látható. 


(3) Eredménykiírás 

A modul kiírási feladatát egyetlen PRINT utasítással el lehet végezni. Ezt a modult 
is célszerű a modul nevével bevezetni. Mivel ez a program utolsó modulja, a modul 
végére END utasítást kell írni. A kiírómodul a számítási modul után következik, 
ezért a sorszámozást a (2) modultól lehet folytatni (20. ábra). 


A program bevitele, kipróbálása és a megoldás értékelése 


A program teljes tervezése után a programot be kell gépelni: 


19 REMtáirkEkrkkákrkkk 


29 REMK td 
39 REMrt EREL x 
49 REFMAk x 


59 REMlikkikikíkkkkrkkik 

S9 REMkkkkk BEMEINO ADATOK TAROLASA kíikikik 
79 LET Ri1GAa9 

83 LET R2-29g99 
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A program bevitele után a prógram tesztelési célokra futtatható : 


RUN 
?SYNTAX ERROR IN 70 
READY 


Az első futás után hibaüzenet jelent meg, amely szerint a programban szintaktikai 
hiba van. Ha megnézzük a bevitel listáját, rögtön szembeötlik, hogy a 70-es sorban 
az R1 után kihagytuk az egyenlőségjelet, s mivel nem volt egyenlőségjel, a program 
nem tudta értelmezni ezt a sort. Ekkor a programfutás leállt, és READY üzenet je- 
lent meg. A hibás sort ki kell javítani. Ezután újra megkíséreljük a futtatást. 


AZ EREDO ELLENALLAS (OHM) : 485.714 
READY 


e A Sinclair-gépeknél ilyen formai hiba nem fordulhat elő, mivel a gép a for- 
mailag hibás utasításokat nem fogadja el. Ilyenkor egy kérdőjel jelenik meg 
az ENTER lenyomásakor. A sort csak a javítás után fogadja el a gép. 


A futás most már eredményes. Csupán azt kell ellenőrizni, hogy a program logi- 
kailag is helyesen működik-e. Példánkban ennek legegyszerűbb módja, ha az eredő 
ellenállás értékét magunk is kiszámítjuk: 


R9 ——— et 200 — 485.714 ohm 


1000 " 2000 ! 500 


Megállapíthatjuk, hogy programunk helyesen működik, a feladatot megoldja. A hi- 
bátlan programot ezután a megismert módon kazettára vagy lemezre másolhatjuk. 


Ellenőrző kérdések és feladatok 


5. 
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. Mi a különbség a képernyősor és az utasítássor között? 


Ha lenyomjuk a sorzáró gombot, akkor új képernyősorba vagy új utasítássorba 
megyünk? 


. Egy programot az AUTO segítségével kezdett el beírni. Majd abbahagyta a be- 


írást (megszakította az AUTO módot), és most folytatni akarja. Lehet AUTO- 
val folytatni egy program beírását? 


. Ha van rá lehetősége, készítse el a meglevő programjai listáit! 


. Készítse el az alábbi két programot! 


Magyarázza meg, mi a különbség a kettő között! 


a) 10LET A-—20 
20LET B—15 
30 LET A-B 
40 PRINT A 


b) 10LET A4A-—20 
20 LET B—15 
30 LET B—A 
40PRINT A 


Készítsen BASIC programot az A kiszámítására! 


5. ELÁGAZÁSOK Il. 


Az elágazásos (IF THEN, IF THEN ELSE, CASE) szerkezet 
megvalósítása. 
A 2. feladat megoldása 


Az előzőekben olyan feladatokat oldottunk meg, amelyekben az utasí- 
tások egy meghatározott sorrendben hajtódtak végre minden esetben. 
Vannak azonban olyan feladatok is, amelyek így nem oldhatók meg. 
Nézzünk egy példát! 


ELÁGAZÁSOS SZERKEZETEK 


Egy szállítóvállalatnak vissza kell igazolnia a rendelések értékét. A válla- 
lat egyetlen terméket állít elő, és egységárát a rendelt mennyiségtől teszi 
függővé. Két árat határoz meg. Ha egy vevő egy meghatározott (M) 
mennyiséget vagy ennél kevesebbet rendel, akkor a termék egységára 
A1 lesz. Ha viszont e feletti mennyiséget rendel, akkor alacsonyabb 
(A2) egységárat számít fel. Foglaljuk össze az elmondottakat egy táb- 
lázatban: 


Mennyiség (R) R:53M 
Ár (A) Az 
ahol 
M — az árengedmény határát rögzítő mennyiség, 
R "— a rendelt mennyiség, 
A — a visszaigazolt ár, 


A, és Az; — a rendelt mennyiségtől függő árak. 


Ahhoz, hogy az egységárat megállapítsuk, a rendelt mennyiséget (R) és 
az árengedmény határát rögzítő mennyiséget össze kel! hasonlítani. Ha: 


RAM, akkor az egységár (A) A1 
R2: M, akkor az egységár (A) A2 


Ebben a feladatban a rendelt mennyiség teljes értékét (R" A) vagy az 
A1, vagy az A2 értékkel kell kiszámítani. Vegyük észre, hogy mindig 
csak az egyik egységárral kell számolni, sohasem mind a kettővel. Ezt a 
feladatot tehát soros műveletekkel nem lehet megoldani, mert amikor 
arra kerül a sor, hogy melyik egységárat vegyük figyelembe, akkor el 
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kell dönteni, hogy a kettő közül melyiket válasszuk. Ha ezt a feladatot 
program formájában is meg akarjuk oldani, akkor az egységár kiválasztá- 
sa előtt szükség van egy műveletre, amely meghatározza, hogy mi a 
teendő. 

Honnan lehet tudni a példánkban, hogy melyik egységárat kell tekin- 
tetbe venni? Jól érzékelhető a példákból, hogy az R és M értéke határoz- 
za ezt meg. Tehát a döntés az R és M viszonyától függ, amint már be is 
mutattuk. 

Azt is tudnunk kell, hogy a programba mind az A1-gyel, mind az A2- 
vel való értékszorzást bele kell írni, mivel mindkettő előfordulhat. 
A program tehát mind a két alábbi műveletet tartalmazni fogja: 


E—-R"A1 
E-R : A2 


ahol 
E — a rendelés értéke. 


Most már pontosan látható, hogy hogyan kell ezt a feladatot megoldani : 


1. Össze kell hasonlítani az R-et M-mel. 

2. Ha RCM, akkor E-R"A1 
egyébként E-R"A2 

3. Visszaigazolás készítése E összeggel 


Mindhárom lépést el kell végezni, de a másodikban levő kettő közül 
csak az egyiket. A második műveletben a program végrehajtása elágazik 
vagy az egyik, vagy a másik műveletre. Ezért az ilyen szerkezetű műve- 
leteket elágazásnak nevezzük. A harmadik műveletet mindenképpen el 
kell végezni, ez már független az R és M viszonyától. 

Látható, hogy egy feltétel határozza meg, hogy a két műveletcsoport- 
ból melyiket választjuk ki. Ez a feltétel 


RSCM 


vagy 
R2:M 


formában fogalmazható meg. Bármelyik jó, csak arra kell figyelni, hogy 
melyik műveletet kell a feltétel teljesülése és melyiket nem teljesülése 
esetén elvégezni. 

Akármelyiket is alkalmazzuk, a feltétel teljesülése a megrendelt meny- 
nyiségtől függ, mivel M értékét (legalábbis egy elég hosszú időre) kons- 
tansnak tekintjük. Ezért R a feltétel változója. Az elágazás tehát az R 
feltételváltozó értékétől függ. 

A BASIC nyelvnek van olyan lehetősége, amely lehetővé teszi az el- 
ágazás megvalósítását a programban. Erre szoglál az IF utasítás. Az IF 
utasítás felépítése a következő : 
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THEN utasítás 
x IF 7. kifejezés összehasonlítás 2. kifejezés § THEN sorszám 
GO TO sorszám 


Az utasítás kulcsszavai az IF és a THEN vagy a THEN helyett álló 
GO TO. 

Az utasítás lényege, hogy két kifejezést hasonlít össze, és az összeha- 
sonlítás eredményétől függő utasítássorozatot hajtja végre. Ha az 1. és 
2. kifejezés között az utasításban foglalt feltétel teljesül, akkor a prog- 
ram a THEN utáni részt, illetve a GO TO utasítást hajtja végre, majd a 
következő sorszámú sorra lép. Ha a feltétel nem teljesül, akkor a prog- 
ram a következő sorszámú utasításra tér át. 

Az utasításban kifejezések (változókból és műveletekkel összekap- 
csolva) és egyedül álló változók lehetnek. Az egyik kifejezés helyett 
konstans is állhat. Ha van konstans, akkor az rendszerint a második ki- 
fejezés helyén áll. 

Az összehasonlítást mindig valamilyen relációval fejezzük ki. Ha pél- 
dául a reláció az —, akkor az összehasonlítás tartalmilag azt jelenti, hogy 
a program egyenlőséget vizsgál a két kifejezés között. Ha teljesül (egyen- 
lőek), akkor a THEN-ág hajtódik végre, ellenkező esetben az utasítás 
utáni sorszámú utasítást hajtja végre a gép. 

Az elvégezhető összehasonlítások műveleti jelei megegyeznek a mate- 
matikában használatos relációkkal, csupán a formájukban van kisebb 
eltérés. 


Matematikai relációk BASIC-relációk 
zZ aZ 
S 7-4 vagy CvC 
- - 
z -5 vagy 27 
ht ax 5 vagy 53 ag 


A THEN után állhatnak utasítások (kettősponttal elválasztva) , vagy áll- 
hat egy utasítássorszám. Ilyenkor a programot az itt megadott utasítás- 
sorszámtól kell folytatni. Tartalmilag ugyanez érvényesül a GOTO-nál 
is. Ekkor a GOTO után írt utasítássorszámnál folytatódik a program. 
A GOTO leírására később visszatérünk. 


e A Sinclair-gépeknél a THEN után mindig utasítást kell megadni, 
a sorszám nem elegendő. 


Jól érzékelhető, hogy a bemutatott IF utasítás IF THEN változata 
akkor használható a legjobban, ha valamilyen feltételtől függően egy 
műveletet vagy el kell végezni, vagy nem. Például a szorzatkitaláló fel- 
adat egyik megoldási módjánál a gép által kiszámított eredményt csak 
akkor íratjuk ki, ha az nem egyezik meg az általunk begépelttel. Ekkor 
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a feltétel a két szorzat egyenlősége. Ha ez nem áll fenn, akkor ki kell 
írni a helyes szorzatot, és a program befejeződik. Ha fennáll reláció, 
akkor a kiírást nem kell végrehajtani, és a program befejeződik. 


Ilyenkor tehát nem két művelet közül kell valamelyiket kiválasztani, 
hanem csak egy művelet elvégzéséről kell dönteni. Megjegyezzük 
azonban, hogy ezzel az utasítással is meg lehet valósítani a két műve- 
let közül az egyik kiválasztását. 

Az IF utasításnak van egy több szolgáltatást nyújtó változata is, 
amely a 


u HT és a 
a PRIMO gépen használható. 
Az utasítás formája: 
THEN utasítás utasítás 
x IF 7.kif. összehas. 2.kif. § THEN sorszám ? ELSE í$§ sorszám 
GOTO sorszám GOTO sorszám 


Az utasítás kulcsszavai az IF THEN és ELSE, ezért hogy az IF 
THEN utasítástól megkülönböztessük, IF THEN ELSE az utasí- 
tás neve. 

Az utasítás lényegében ugyanúgy működik, mint az IF THEN 
utasítás. A legnagyobb eltérés az, hogy ha a reláci£ nem teljesül, 
akkor a gép az ELSE után álló utasításokat hatja végre. 


Megjegyezzük, hogy mind az IF THEN, mind az IF THEN ELSE uta- 
sításba további ugyanolyan típusú utasítások is elhelyezhetők : 


100 IF A—-7 THEN IF B—3 THEN A-B 


Ez esetben ha az A—7 és B—3, akkor az A-B értékadás megy végbe: 
A értéke 3 lesz. 

Ismerjük meg még a GO TO utasítást is. A GO TO utasítás segítsé- 
gével lehet elérni, hogy a program a sorrendben következő helyett a 
GOTO utasítás tárgyában megadott sorszámú utasításra ugorjon, és 
onnan folytassa a végrehajtást. A GO TO utasítás felépítése : 


x GO TO sorszám 


Amikor a program a végrehajtáskor eléri az x sorszámú utasítást, akkor 
a GOTO utasítás végrehajtásának eredményeként nem az x után kö- 
vetkező sorszámú utasítás hajtódik végre, hanem a GO TO utasítás tár- 
gyában megadott sorszámú utasítás. A GO TO tehát a programon belül 
ugrást hajt végre. 

Ezután azt kell megvizsgálni, hogy az elágazásos szerkezeteket ho- 
gyan lehet megvalósítani a programokban. 
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AZ IF THEN SZERKEZET MEGVALÓSÍTÁSA 


Az IF THEN szerkezetet olyan algoritmusban kell használni, amelyben 
a feltétel teljesülésekor valamilyen A műveletsorozatot kell végrehajta- 
ni, és utána a B műveletsorozatra kell áttérni. Ha a feltétel nem teljesül, 
akkor rögtön a B műveletre kell! áttérni. A B műveletsorozatot minden- 
képpen végrehajtja a program, ezért ezt feltétel nélkül végrehajtandó 
műveletnek nevezzük. Az IF THEN szerkezet folyamatát a 21. ábra mu- 
tatja. 
Az IF THEN szerkezet kódolására két változatot mutatunk be. Az 
első formát akkor célszerű használni, ha az A programrész sok utasítás- 
ból áll. A kódrészt az IF utasítás vezeti be, és az IF VEG megjegyzéssel 
(REM) zárjuk le (22. ábra). A THEN után következő műveletsorozatot 
az m sorszámtól kezdve, két sorral az IF utasítás alatt (így m-—k7-20 le- 
het) helyezzük el. A műveletet egy REM utasítással nyitjuk meg, s ide 
beírjuk, hogy itt kezdődik a THEN-ág. A THEN-ág utolsó utasítása után 
az n sorszámú, az IF VEG-et tartalmazó REM utasítás következik, és a 
vezérlés átkerül a közös műveletsorozat kezdetére. 
Ha a feltétel nem teljesül, akkor a program a következő sorra tér át. 
Logikailag azonban a B műveletsorozatnak kell következnie, amit úgy 
érhetünk el, hogy egy GO TO utasítást helyezünk az IF utasítás utáni 
(például kt10 sorszámú) sorba, s ez az n sorszámú utasításra — gya- 
korlatilag a közös műveletsorozatra — helyezi át a vezérlést. 

Ez utóbbi lépésnek az a lényege, hogy az IF THEN zárt szerkezeti 
egységnek egyetlen , kijárata" legyen, az n sorszámú utasítás. Ez az 
,egykijáratúság" módosításnál nagyon megkönnyíti a helyzetünket. 


21.ábra. Az IF THEN szerkezet 
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IF feltétel THEN m 
GO TO n 
REMá$THEN—-AG tt 


THEN-ág 


REM tt IF VEGd 


Feltétel nélkül 
végrehajtandó 


Fész 22. ábra. Az IF THEN 


szerkezet 
a BASIC-ben 


Példaként nézzük meg a szorzatkitaláló program eredményértékelő 
részének kódolását. A begépelt szorzat változója az A, a gép által kiszá- 
mított szorzat a B változóban van. A kód a következő: 


iga IF AC:B THEN 120 

1ig Gú TO 149 

1zZ9d REMk THEN AG 4 

138 PRINT"A SZORZAT: ";B 
igan REWix IF VEG x 

152 EMU 


A második szerkezet akkor használható ésszerűen, ha a THEN-ág csu- 
pán egy-két utasításból áll. 
Ezt a kódolási szerkezetet a 23. ábra mutatja. A THEN-ág egy-két 


ÁL ame———t e ee ee e ee ee. a es 


Feltétel nélkül 


végrehajtandó 
p ES rész ) 23. ábra. Az egyszerűsített 
IF THEN 
szerkezet 
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utasítását a THEN kulcsszó után, kettősponttal elválasztva helyezzük el. 
Az utolsó THEN-ági utasítás után a feltétel nélkül végrehajtandó ág kö- 
vetkezik, ezért GO TO utasításra nincs szükség, mert a program ettől 
függetlenül is a következő sorban levő B műveletsorozat első utasítására 
lép. Ha a feltétel nem teljesül, akkor is a B műveletsorozatra tér át a 
program, tehát a kódolás helyesen valósítja megaz IF THEN szerkezetet. 
Nézzük meg az előző példát ezzel az eljárással kódolva! Megtehetjük, 
mert a THEN-ágban csak egy utasítás lesz : 


i99 IF ő-(£3B THEN FRINT"A SZORZAT: ";7B 
110 END 


AZ IF THEN ELSE SZERKEZET MEGVALÓSÍTÁSA 


Az IF THEN ELSE szerkezet akkor használható, amikor egy feltétel tel- 
jesülésekor a THEN-ágban levő A műveletsort kell elvégezni, és a C felté- 
tel nélkül végrehajtandó műveletre kell áttérni. Ha a feltétel nem telje- 
sül, az A helyett egy B műveletsort kell elvégezni; ez az ELSE-ág. Ez- 
után C részre kell áttérni (24. ábra). 

Az IF THEN ELSE szerkezet kódolására is két megoldást mutatunk be. 
Az első megoldás a 25. ábra bal oldalán látható. 

A THEN-ág kódolása az IF THEN szerkezetnél bemutatott módszer- 
hez hasonlóan megy végbe, csak a befejezés tér el. A THEN-ág után 
most nem a C műveletsor, hanem az ELSE-ág kódja következik, ezért 
egy GO TO utasítással át kell ugrani a p sorszámú utasításra, ahol az 
IF THEN ELSE kijárata (a C rész kezdete) van. 

Ha a feltétel nem teljesül, akkor az ELSE-ágra kell áttérni. Ezt az IF 


24. ábra. Az IF THEN ELSE szerkezet 
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utasítás után következő sorban elhelyezett GO TO utasítással lehet el- 
érni. Ekkor az ELSE-ág végrehajtódik, és a vezérlés közvetlenül átkerül 
a p sorszámú megjegyzésre, illetve innen a feltétel nélkül végrehajtandó 
ágra. 

Készítsük el a termékrendelési és visszaigazolási feladatrészlet kódolá- 
sát az itt bemutatott módszer szerint: 


1090 IF R-(M THEN iízOg 

119 GO TO 159 

120 REM THEN AG xk 

1398 E-RrHRI1 

iga Gú TO 1709 

158 REőMk ELSE AG x£ 

159 E-R482 

179 REMk IF VEG x 

139 PRINT"A RENDELES ERTEKE: ,"; 


A 180-as sorszámú sorban a u ; jel egy szóközt jelent. 


ma A HT és a 

A PRIMO BASIC-változatában az ilyen műveletet IF THEN ELSE 
típusú utasítás felhasználásával kódolhatjuk. Itt a THEN és az 
ELSE után meg kell adni, hogy melyik sorszám alatt kezdődnek 
az egyes ágak. A THEN- és az ELSE-ágat hasonló, strukturált 
módon lehet kódolni. Ilyenkor az IF utáni GO TO utasítás feles- 
legessé válik (26. ábra). 


A feladatot most az IF THEN ELSE utasítással kódoljuk: 


199 IF R-(M THEN 119 ELSE 149 

119 REMx THEN AG x 

129 E-RxM1 

139 G0 TU 169 

140 REfMfx ELSE AG x 

1598 E-R:AREZ 

is9 REMx IF VEG x 

179 FRINT"A RENDELES ERTEKE: "7E 


Ha a THEN-ág csupán egy-két utasítást tartalmaz (a feltétel jó megvá- 
lasztásával eldönthető, hogy melyik ág legyen a THEN-ág), akkor az 
IF THEN szerkezet megvalósításánál bemutatott egyszerűsített szerke- 
zet alkalmazható. A THEN-ág utasításait a THEN kulcsszó után, kettős- 
ponttal elválasztva írjuk le, majd a sor végén egy GO TO utasítással az 
IF szerkezet végére kell ugrani, s ezután már a közös rész következik. 
Ha a feltétel nem teljesül, akkor az IF THEN ELSE szerkezetnek meg- 
felelően az ELSE-ág hajtódik végre. Az ELSE-ág befejezése után pedig a 
feltétel nélkül végrehajtandó rész kerül sorra (a 25. ábra jobb oldala). 
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IF feltétel 
REM § THEN—AG it 


 eeszsásásázáátásáááátszás ss öktáltetáműű tt kltádtktádtmmákánáttsű 
Lazán s tátáz ematttűjstáksszázáj 


THEN n ELSEp 


THEN-ág 
LT me —u——7m—mm—emn 
GO TOF 
REMá$ ELSE— AG it 

ELSE-ág 


REM tt IF 


VEG tt 


26. ábra. IF THEN ELSE szerkezet IF THEN ELSE utasítással 


Ezzel példánk kódja a következő lesz: 


1093 
1190 
129 
139 
149 


IF RÁM THEN E-RxrAi1i: GO TO 139 
REMX ELSE AG £ 

E-Rx:fE 

REDMx IF VEG xx 

PRINT"A RENDELES ERTEKE: "; 


Az IF THEN ELSE utasítással pedig az alábbi lesz az egyszerűsített kód: 


199 IF R(M THEN E-Rxifi ELSE E-RxAZ 
119 PRINT"A RENDELES ERTEKE: "s; 


Ha a feladat olyan, hogy egy feltételtől függően nemcsak kétfelé lehet 
elágazni, hanem többfelé, akkor a feladat folyamatábrája a 27. ábra sze- 
rint alakul. Az ilyen típusú elágazást CASE szerkezetnek nevezzük. 
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A1 művelet 


27. ábra. A CASE szerkezet 


A BASIC-ben a CASE szerkezet az ON GO TO vagy az IF THEN utasí- 
tással kódolható. Az utóbbi nyújtja az általánosabb és rugalmasabb 
megoldást, ezért ennek a használatát mutatjuk be. A CASE szerkezet 
kódolására is két megoldást ismertetünk. 

A CASE szerkezetet az 1. feltétel IF utasítása nyitja meg, és a CASE 
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VEG megjegyzés zárja le. A CASE szerkezet elején egymás után helyez- 
kednek el az egyes feltételeket vizsgáló IF utasítások. 

Ha a változó értéke valamelyik feltételnek nem tesz eleget, akkor a 
vezérlés a következő vizsgálatra kerül át. Ha a változó egyik feltételnek 
sem felel meg, akkor a feltétel nélkül végrehajtandó rész végrehajtása 
következik, tehát a p sorszámú — utolsó — utasításra kell ugrani. Ha a 
változó valamelyik feltételnek eleget tesz, akkor a vezérlés az adott fel- 
tételhez tartozó műveletsorra ugrik át. Ennek végrehajtása után a közös 
rész következik, erre egy GO TO utasítással kell áttérni (28. ábra). 


REM § CASE KEZDET it 
IF 1. feltétel THEN m 1 
IF 2. feltétel THEN m2 


IF n. feltétel THEN man 
GO TODD 
REM 4t 1. ESET 4t 


Az 1.eset 


műveletsora 


A 2.eset 
műveletsora 


REM § N. ESET § 


Az n.eset 
műveletsora 


Közös rész 


28. ábra. A CASE szerkezet kódolása 
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REM dá CASE KEZDET it 
IF 1.feltétel THEN Í1.ESET [: GOTOD 


IF 2.feltétel THEN Í2.ESETf:GOTOD 


IFn.feltétei THEN 47.ESET 


REPI 4 CASE VEGTH 


29. ábra. Az egyszerűsített CASE szerkezet 


A CASE szerkezet egyszerűsített változatában (29. ábra) az egyes ese- 
tek kódját a megfelelő feltételt vizsgáló IF utasításban, a THEN kulcs- 
szó után helyezzük el. Ha az /-edik feltétel teljesül, akkor az 7. esethez 
tartozó műveletsor hajtódik végre. Ha valamelyik / eset végrehajtódott, 
akkor a CASE részből egy GO TO utasítással ki kell lépni. 

Most pedig ismerjük meg részletesen a billentyűzetről adatot beolvasó 
INPUT utasítást! Az utasítás formája: 


x INPUT "szöveg" ;1. változó, 2. változó, . . . 


Hatására az idézőjelbe tett szöveg kiíródik, és utána egy kérdőjel jele- 
nik meg, annak jeléül, hogy a gép adatot vár a billentyűzetről. Ilyenkor 
olyan típusú (pl. egész típusú vagy numerikus) és annyi adatot kell vesz- 
szővel elválasztva begépelni, amilyen és ahány az utasítás tárgyában sze- 
repel. Ha az adatbevitel befejezése előtt nyomjuk le a sorzáró gombot, 
akkor a következő sorban újra kérdőjel látható, és a gép a hiányzó ada- 
tok begépelésére vár. 


e A Sinclair-gépeknél az INPUT utasítás formája kismértékben 
eltér a fentitől : 


x INPUT"szöveg1 " változó1 ; szöveg2" változó2; . . . 


Látható, hogy egy INPUT utasítással több változó értékét be 
lehet olvasni, de mindegyikhez külön szöveget kell megadni. 
A szöveg tudatja a felhasználóval, hogy a gép milyen adatokat 
kér be. Az utasítás befejeztével az utasítás tárgyában felsorolt 
változók a begépelt értékeket kapják meg. 
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2. feladat 


Állóeszközök amortizációval csökkentett nettó értékét kell meghatározni. Az ál- 
lóeszköz beszerzésének éve és ára (bruttó ár) alapján ki kell számítani, hogy jelen- 
leg mennyi az állóeszköz nettó értéke. A két kiinduló adatot a végrehajtás közben 
billentyűzetről kel! beadni. 


közök nettó értéke az eredeti (bruttó) érték évenként 2096-kal csökkentett értéke. 
5 év után, amikor a nettó értéknek nullára kellene csökkennie, az állóeszközöket 
könyvelési okokból 100— Ft eszmei értékre írják le, és ezután ezen az értéken tart- 
ják nyilván. 

Az eredményt az alábbi formában kell kiírni: 


NETTO ERTEK SZAMITASA 


BRUTTO ÉRTEK X EFT 
A BESZERZESEÉVE 19XX EV 
ELETKOR X EV 
NETTÓ ERTEK X EFT 


vagy nullára leírt állóeszközöknél: 


NETTO ERTEK SZAMIÍTASA 


BRUTTO ERTÉK X EFT 

A BESZERZESEÉVE 19XX EV 

ELETKOR X EV 

NETTO ERTEK 0.1 EFT (ESZMEI ERTEK) 


A feladat elemzése 


A feladat leírása szerint az állóeszközök nettó értékét kell kiszámítani a bruttó ér- 
ték és a beszerzés éve alapján az ide vonatkozó szabályok alkalmazásával. Az ered- 
ményt a megadott formában kell kiírni. 


e A Sinclair-gépek képernyőjén az utolsó sor nem fér el, ezért az "ERTEK)" 
részt az "(ESZMEI!" szöveg alá lehet kiírni. 


A felhasználó az állóeszközök adatait kartonokon tárolja, ezért ilyenkor számító- 
gépes adattárolásra nincs szükség. 

A program elején a számításhoz szükséges bemeneti adatokat be kell olvasni, 
és ezekből kell a nettó értéket kiszámítani, végül az eredményt ki kell írni. 

Az amortizációszámítást a következő képlet szerint végezhetjük el: 


N — SES ha (J—E) £5 


ahol 

— a nettó érték eFt-ban, 

— a bbruttó érték eFt-ban, 

— a folyó év (csak kerek évszámot használunk), 
— a beszerzés éve. 


mcwz 


A kiírásnál az állóeszköz életkorát is meg kell határozni, ezért a (J—E) helyett a K 
(életkor) változót vezetjük be. A nullára leírt (5 éves vagy régebbi) állóeszközök 
nettó értékét pedig az 

N—0.1 eFt (ha K25) 


(1) Va 1 2) , (32) 
; mortizáció - if 
Bemeneti adatok szármizás Kiírás 


30. ábra. A 2. feladat programjának szerkezete 


értékadással határozzuk meg. Az állóeszköz életkora dönti el, hogy melyik kifeje- 
zést alkalmazzuk a nettó érték kiszámításánál. A feltételváltozó tehát a K (életkor) 
változó lesz. 

A fentiek alapján már meghatározható, hogy a feladat megoldásához milyen mo- 
dulok kellenek. Először szükség van egy bemeneti adat modulra, az amoritzáció- 
számításhoz egy másik modulra, végül egy kiírás modulra. A modulok a 30. ábrán 
látható egyszerű szerkezetet alkotják. A programnak az AMOR nevet adjuk. 


A program tervezése 


A program szerkezete kialakult. Vizsgáljuk meg, hogy a modulszerkezet hogyan 
finomítható tovább! 

A bemeneti adatok modulban csupán egy állóeszköz beszerzési évének és beke- 
rülési árának adatait kell beolvasni. Ez elég egyszerű feladat ahhoz, hogy egyetlen 
modul lássa el. A modulban kell meghatározni a számításhoz szükséges J (folyó év- 
szám) adatot is. Láthatjuk, hogy az amortizációszámítás is alapjában véve egy- 
szerű, ezért további finomításra nincs szükség. 

Ehhez hasonlóan könnyen belátható, hogy a kiírás modul bontására sincs szük- 
ség, mert csak a címet és a négy adatot kell egyszerű formában kiírni. Látnunk kell, 
hogy az utolsó sor formája nettó érték, és tartalma a K változótól függ. 

Mivel a modulok szekvenciális szerkezetet alkotnak, a vezérlőmodul alkalmazásá- 
tól eltekintünk. 


A modulok tervezése 


(1) Bemeneti adatok 
A modul adat típusú. Bemeneti adatait a B és az E, kimenetét pedig három adat: B, 
E, J alkotja. 

A modul folyamata a J konstans értékadásával kezdődik. A következő lépésben 
kell beolvasni a B és az E értékét INPUT utasításokkal. A modul műveletei a 31. áb- 
rán láthatók. 


(2) Amortizációszámítás 
A modul eljárás típusú. Bemeneti adatai: a B, E és J változó az (1) modulból. A mo- 
dul állítja elő az életkor (K) és a nettó érték (N) kimeneti adatokat. 

Először a K (életkor) értékét kell meghatároznia, mert a K-ra a továbbiakban 
szükség lesz. Ezután következik a nettó érték kiszámítása (N), illetve az N—100 Ft 
eszmei értékadás 5 évnél régebbi állóeszközök esetén. Hogy melyik műveletet kell 
elvégezni, az a 

K x5 
feltételtől függ. 
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Ha a feltétel teljesül, akkor az amortizációval csökkentett nettó értéket kell ki- 
számítani, egyébként a nettó értéknek 0.1 eFt értéket kell adni. A soron következő 
modul kezdő művelete független a K értékétől (31. ábra). 


(3) Kiírás 
A modul eljárás típusú. Bemeneti adatai a B és E az (1) modulból, valamint K és N a 
(2) modulból. 

A modul kimenete a cím és az eredmények kiírása. A műveletek végrehajtásakor 
először a címet (aláhúzással), majd a B, E és K adatot kell a megfelelő szöveggel ki- 
írni. A következő sor kiírási formája attól függ, hogy az állóeszköz nettó értéke 
nagyobb-e nullánál, vagy eléri-e a nullát, illetve eszmei értéken tartják-e nyilván. 
A megfelelő kiírási formát az életkor határozza meg. Ha 


Ka5, 


akkor a számított nettó értéket, ha 


NNSEZNENE IMS SSSZEKUT 4 


c (3) modul 
31. ábra. A bemeneti adatok modul és az amortizációszámítás modul folyamata 
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(2) modul 


Eszmei érték 


kiiras 


32. ábra. A (3) modul folyamata 


akkor az eszmei értéket tartalmazó N változó értékét (100,— Ft) kell kiírni, de záró- 
jelben meg kell jegyezni, hogy ez az eszmei érték. Ezután a program véget ér. A mo- 
dul folyamatábráját a 32. ábra mutatja. 


A kódolás 


A program kezdetén helyezzük el a program nevét tartalmazó REM utasítássorokat. 
Az (1) modulban két INPUT utasítás van: 


398 INPUT"BRUTTOERTEK: ";B 
ig9g PRINT 
i19 INPUT"BESZERZES EVE: "FE 


A (2) modulban egy IF THEN ELSE szerkezetet kell kódolni a bemutatott szabá- 
lyok szerint. Amikor elkezdjük kódolni ezeket a sorokat, akkor még nem tudjuk ki- 
tölteni az ugrási címeket: 
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i4a IF KAÁSTHEN 
158 GO TO 
1693 REPMxK THEN AG 4 


Most már befejezhetjük a 140. sort: 
149 IF KASTHEN iEg 
Majd folytatjuk a THEN-ág kódolását: 
172 MH-(KBXfÉ5-Kll/5 
i38 Gú TO 
1932 REMXK ELSE AG xk 
Az ELSE-ág kezdetének ismeretében az ide ugró utasítást fejezhetjük be: 
i5gd GO TO 199 
Ezzel folytatjuk az ELSE-ágat: 


eza M-a.1 
219 REMkKk IF VEG xX 


Az IF THEN ELSE szerkezetnek a végére jutottunk, és most már a THEN-ág utáni 
GO TO utasítást is befejezhetjük: 


189 GO TO £€18 
A kiíró modulban először a címet írjuk ki, majd az aláhúzást 


230 PRINT" NETTO ERTEK SZAMITAS" 
249 PRINT" --—-—-- —-——-— —-—-— én 


Ezután a bruttó értéket, a beszerzés évét és az életkort kell kiírni. Majd ismét egy 
IF THEN ELSE szerkezet következik a nettó érték szövegének kiírásához. Végül a 
programot lezáró END utasítás következik. 
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Ellenőrző kérdések és feladatok 


1. Magyarázza meg, hogy ha egy feltételtől függően vagy egy A műveletsort, vagy 
egy B műveletsort kell végrehajtani, akkor miért kell mind a két műveletsort be- 
levenni a programba! 


2. Keressen példát a CASE szerkezet alkalmazására a környezetéből! 


3. Gépelje be az alábbi programot, és figyelje meg, mi történik! 
19 A-i 
29 PRINT ő; 
38 IF AC-Z THEN GO TO 19 


Elképzelhető olyan feladat, ahol ez a program használható? 
4. Alakítsa át a szorzatkitaláló programot, hogy a program hibás szorzat begépelése 


esetén írja ki: 
"NEM JO, PROBALJA MEG UJRA!" 


és az eredményt lehessen újra beírni. 
Ha a beírt szorzat jó, akkor az 
"EZ JO! 


szöveget írja ki a gép, és a program fejeződjék be. 
5. Készítsen programot a másodfokú egyenlet gyökeinek kiszámítására! 


- -bit V/V b?—4ac 


X 
7 2a 


6. ELÁGAZÁSOK IL 


"Az elágazások folytatása, a vezérlőmodul kialakítása, 
"a modulok mint szubrutinok. A módosított 2. feladat. 
A 3. feladat megoldása 


A VEZÉRLŐMODUL ALKALMAZÁSA 


Nézzük meg az előző részben megoldott amortizációszámítási feladat 
modulszerkezetét (30. ábra). A modulszerkezetből kitűnik, hogy a leg- 
egyszerűbb — a szekvenciális — esettel állunk szemben. Éppen ezért a 
feladat megoldásánál azt mondtuk, hogy a vezérlőmodul elhagyható, és 
a három modul kódját szekvenciálisan egymás után írjuk a programkód- 
ban. Ezzel viszont nem tartottuk be programfelépítési módszerünk 
egyik szabályát. 

Készítsünk vezérlőmodult a feladat három moduljához! A vezérlő- 
modul a 30. ábra szerinti AMOR lesz, amelyet a megoldás során nem 
kódoltunk. Ennek az új modulnak az a részfeladata, hogy a feladat mo- 
duljainak végrehajtását vezérelje, ami abból áll, hogy a modulokat (1), 
(2), (3) sorrendben hívja. A modulok hívása után a folyamat befejező- 
dik (33. ábra). 

Kérdés az, hogyan kódolható ez a modul. Egy modul hívása azt jelen- 
ti, hogy a főmodulból ki kell ugrania a hívott modul első utasításához. 
Végre kell hajtani a modul egészét, és a befejezéskor nem a következő 
modulra kell áttérni, hanem a vezérlőmodulba kell visszaugrani, hogy az 


(1) modul 
hívása 


(2) modul 
hívása 

(3) modul 
hívása 


33. ábra. Az 1. feladat vezérlőmoduljának folyamata 
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hívhassa a következő modult (34. ábra). Jelenlegi ismereteink alapján 
ezt a műveletet a GO TO utasítással meg lehet valósítani. 

A program elején egy GO TO utasítással lépünk az (1) modul elejére, 
majd ennek végéről másik GO TO utasítással visszatérünk a vezérlő- 
modulba. 

Ha egy újabb modult beszúrunk a programba, akkor ennek a program 
elején , helyet" kell csinálni. Ez azt jelenti, hogy a programnév után 
minden utasítást hátrább kell tenni, vagyis az utasítássorszámokat meg 
kell növelni. Tegyük fel, hogy az (1) modul kódja a 200-as, a (2) mo- 
dulé a 300-as, a (3) modulé pedig az 500-as soron kezdődik majd. Ezzel 
a program kiegészítő kódja (vezérlőmodul) a következő lesz: 

EZ REMkKEKXK AMOR kikkkik 

79 GO TO 294 

sg sa Tú 348 

ggg GO TO 589 

108 END 

290 REftiirrirrxk BEMENETI HRORTOK £4£i4KKk 


269 Gü TO 80 
399 REMAKKKK AMORTIZACIÓ SZ. XKkKk$kXK 


geg Gy TO ga 
509 REMtkEtkk4K KIIRŐS k4i4XK 


678 GO TO 199 


e A Sinclair-gépeknél nincs END utasítás, ezért a 100 sorszámú 


utasítás helyett 
100 GO TO 700 


utasítást írunk és a 700-as soron pedig egy , semleges" utasítást 
helyezünk el (pl. REM). 
A feladatot ugyan helyesen oldottuk meg, de a GO TO utasítások na- 
gyon merevvé teszik a programot, mert bármilyen módosításnál a sor- 
számokat át kell írni, és sok az ugrálás, ami kódoláskor könnyen elté- 
veszthető. Van azonban ennél kellemesebb megoldás is, a következők- 
ben ezt ismerjük meg. 

A GOSUB, RETURN utasításpárral szubrutinokat tudunk kódolni a 
programban, és ezek végrehajtását lehet irányítani velük. A szubrutin 
egy alfeladat (vagy részfeladat), amely lehet egy modul, modulrészlet, 
vagy akár több modul. A szubrutin sajátossága az, hogy végrehajtását a 
GOSUB, RETURN utasításpár irányítja. 

A szubrutin formában kódolt modulokat a program végére írjuk, 
hogy a szerkezet könnyebben áttekinthető legyen. A szubrutin kezde- 
tét semmilyen szubrutin-irányító utasítás nem jelzi, így a program ol- 
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vezérőmodul kódja 


ki úg 


I. 
a i (1) modul kódja 
j! ; 
§ K N 
8 hi N 
: ANG N 
$ N 
ÉN 
AN 
A ka bg (2) modul kódja 
b ku 


N 
(3) modul kódja 


34. ábra. A modulok hívása GOTO-val 


vasója nem veszi észre egy utasításról, hogy az szubrutinkezdés-e, vagy 

sem. A szubrutin kezdőutasítását sorszáma alapján határozhatjuk meg. 

A szubrutint minden esetben a RETURN utasítással kell befejezni. 
A programnak azon a pontján, ahol egy szubrutint kell hívni, 


x GOSUB sorszám 


szubrutinhívó utasítást adunk meg. 

A GOSUB utasítás tárgyában levő szám azt a sorszámot jelöli, ahol 
a szubrutin kezdődik. Az utasítás hatására a vezérlés átkerül a meg- 
adott sorszámra. 

Ezután a hívott szubrutin végrehajtódik. Amikor a program eljut a 
szubrutin végét jelölő RETURN utasításhoz, akkor a szubrutin befeje- 
ződik, és a vezérlés visszakerül a hívó GOSUB utasítást követő utasí- 
tásra, és ezután ott folytatódik. Láthatjuk, hogy a szubrutinhívást a 
GOSUB, a visszatérést a főágra pedig a RETURN utasítás valósítja meg. 


117 


A szubrutinhívási műveletet a 35. ábra mutatja. A GOSUB utasítás 
hatására a program az m sorszámú utasításnál folytatódik, amely a szub- 
rutin kezdete. A gép végrehajtja a szubrutint, majd a RETURN utasítás 
hatására a hívó GOSUB utasítást követő (£--10) utasításra tér át a 
program. 

Az ábrából az is látható, hogy ha egy program szubrutint is tartalmaz, 
akkor a programkód ezáltal két részre osztható : 


— szubrutint nem tartalmazó rész, melyet főprogramnak vagy főágnak 
nevezünk; 
— szubrutinokat tartalmazó rész. 


Felhívjuk a figyelmet arra, hogy a főág végrehajtása után a program rá- 
térne az első szubrutin végrehajtására anélkül, hogy erre szükség lenne. 
Ilyenkor eljutna az első RETURN-ig, de nem tudna sehova sem vissza- 
térni, mert GOSUB hívás nélkül került a szubrutinba. Ezért a gép hiba- 
üzenetet ad ki, és a végrehajtást befejezi. Ez a program helyes működé- 
sét is befolyásolhatja, ezért a főág befejezése után GO TO utasítással a 


Főprogram 


RED 43 4 SZUBRUTIN 4 4 86 


Szubrutin 


, A a RARAÁVAÁBET ÉT ÉT TEE E EEÉE É TTE EE Ea 
RETURN 


M.T setejezés 


35. ábra. A szubrutint tartalmazó program 
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program utolsó — END — utasítására adjuk át a vezérlést, hogy a szub- 
rutinokat kikerüljük. 

Az elmondottak alapján könnyű belátni, hogy a vezérlőszerkezet 
egyszerűbb lesz, ha a vezérelt modulokat szubrutinoknak tekintjük, és 
a vezérlőmodulban ezek hívását helyezzük el. 

Ha visszatérünk a 2. feladat vezérlőmodullal való megvalósításához, 
de most már szubrutinokkal, akkor az (1), (2) és (3) modult szubrutin 
formájában kell kódolnunk, a vezérlőmodult pedig ezek hívásaiból kell 
összeállítanunk. Ha feltételezzük, hogy az egyes szubrutinmodulok 
ugyanazokon a sorszámokon kezdődnek, akkor az eredeti program ki- 
egészítő kódja a következő lesz : 

SE REMKKKKK ÖMŰR $kikkkik 

7 GOSUB 2BXA 

sZ GÜSUER 300 

39 GOSUB 589 

iay sa Tú 799 

z0d REMtirkik4k BEMENETI HAORTUK Hi4r4XK 


2569 RETURN 
399 REMAkEEKXK AMORTIZACIÓ SZ. kii£X 


420 RETURN 
5908 REPxKrKKRK KIIRNZ XK4ikXKXK 


c72 KETURNM 
790 END 


e A Sinclair-gépeknél a korábbi megállapításunk értelmében 
700 REM 


utasítást írunk a program befejezésére. 


2. feladat módosítása 


A 2. feladat úgy módosul, hogy van egy szervezet, amelynek 10 állóeszköze van, 
és ezek amortizációját kell kiszámítani évente olyan módon, hogy az állóeszközök 
adatait ne kelljen minden alkalommal beírni. Ez így kevesebb kézi munkát igényel 
(és kevesebb hiba fordulhat elő). 

Mielőtt a módosítást elemeznénk, azt vizsgáljuk meg, hogyan lehet adatokat a 
programmal együtt tárolni, és van-e olyan lehetőség, hogy az értékadásnál egysze- 
rűbb megoldást kapjunk. A BASIC nyelvben erre szolgál a READ és a DATA uta- 
sításpár. Az adatokat a DATA utasítás tárgyában soroljuk fel, és a felsorolás sor- 
rendjében a READ utasítással olvassuk ki. A READ utasítás a kiolvasott adat érté- 
két a READ utasítás tárgyában levő változóhoz rendeli. 

A DATA utasításokat célszerű a program végén elhelyezni. A DATA szó után 
vesszővel elválasztva olyan sorrendben soroljuk fel a használni kívánt adatokat, 
amilyen sorrendben ki akarjuk őket olvasni: 
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x DATA 6,210,45 


A READ utasítást oda kell helyezni, ahol szükség van a változó értékének megadá- 
sára. A READ utasítás tárgyában meg kel! adni azt a változót (vagy változókat), 
amelynek értékét a DATA-ból kiolvasott adattal kell egyenlővé tenni: 


1T1OREADN 


Térjünk vissza a 2. feladat módosításához, és oldjuk meg. A megoldás folyamán az 
eredeti feladattól való eltéréseket emeljük ki! 


A feladat elemzése 


A feladat annyiban tér el az eredetitől, hogy az állóeszközök alapadatait (bruttó 
érték, a beszerzés éve) a programban kell tárolni és nem kartonokon. Ebből az is 
következik, hogy az alapadatokat a program futása során nem kell begépelni. Mivel 
a nettó érték számítását évente kell elvégezni — és eredménye is az évszámtól függ —, 
a számításokhoz mindig meg kell adni az évszámot (már csak azért is, mert ez vál- 
tozik, és az eredmények ettől is függnek). 

A feladat megoldásához szükség van egy évszámbeolvasó, egy amortíizáció- 
számítási, egy kiírási, valamint egy alapadat-tároló modulra. 


A program tervezése 


A programban változatlanul szükség van amortizációszámítási és kiírási modulra. 
A bemeneti adatok modul helyett csak évszámbeolvasó modul szükséges, és új mo- 
dulként az adattároló modullal bővül a program (36. ábra). 

Az eredeti program egy futása egy állóeszköz nettó értékét számítja: ki. A mó- 
dosított feladatban pedig 10 állóeszközét kell kiszámítani. Ez csak úgy lehetséges, 
ha a (2) és a (3) modult 10-szer hajtja végre a program változó adatokkal. 

Azt is figyelembe kell venni, hogy a 10 állóeszköz adatai nem férnek el együtt a 
képernyőn. A program futása során az állóeszközönkénti cím és a 4 adatsor végig- 
szalad a képernyőn, és csak az utolsó két táblázatot lehetne elolvasni. Ez nyilván 
nem kívánatos, ezért állítsuk meg a kiírást állóeszközönként. Ezt úgy lehet elérni, 
hogy a táblázat kiírása után egy INPUT utasítást adunk ki. Amíg a felhasználó nem 
gépel be valamit, a program futása — és a kiírt kép — áll. Tulajdonképpen teljesen 
mindegy, hogy milyen adatot kérünk be. Nyilvánvaló azonban, hogy a helyzethez 
legjobban illő adatot kell kérni. Ha a felhasználó folytatni akarja a műveletet, ak- 
kor 1-et, ellenkező esetben 0-t kell begépelnie. Ez utóbbi esetben a program be- 
fejeződik. 

A feladatot vezérlőmodul alkalmazásával oldjuk meg. Valamennyi modul végre- 
hajtását a vezérlőmodul irányítsa! A többi modult szubrutin formájában kódoljuk. 


, C1) (6.2 EN (3) (4) 
Evszármnbeolvasás Amortizdció- Kiírás Adattárolás 
számítás 


36. ábra. A módosított 2. feladat programjának szerkezete 
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A modulok tervezése 


(1) Vezérlés 
A modul vezérlő típusú. Bemeneti adata a folytatást eldöntő T érték. Kimenete a 
három szubrutin hívása, illetve a program befejezése. 
A modulban először a (2) modult kell hívni, utána pedig a (3) és a (4) modult. 
Ezután be kell olvasni a vezérléshez szükséges T adat értékét. Ha 
T-T1, 


akkor ismét a (3) és a (4) modult kell hívni egy újabb amortizációszámításhoz és ki- 
írásához. Ha 
T-0, 


akkor a program befejeződik. Ezt a folyamatot a 37. ábra mutatja. 

(2) Évszámbeolvasás s 

A modul adat típusú. Bemeneti adata a folyó év (J) adat billentyűzetről begépelve 
(38. ábra). 

(3) Amortizációszámítás 

A modul megegyezik az eredeti program azonos nevű moduljával, azzal az eltéréssel, 
hogy a modul elején minden végrehajtás előtt be kell olvasni a soron következő álió- 
eszköz alapadatait (B és E — 38. ábra). 


(4) Kiírás 
Ez a modul változatlanul átvehető (38. ábra). 


KEZDÉS 


(€1) modul 
hívása 

(2) modul 
hívása 

(3) modul 
hívása 


37. ábra. A (1) modul folyamata 
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E SEmZEKÁSETSZEK ÉS ÁSZ Tárt "7 


ua 
bel 
9 
Ni 
a 
a. 
[99 


B.E 
értékadás 


l 
I 
l 
l 
l 
l 
I 
J 
j 
I 
l 
I 
I 
l 
j 
l 
l 
l 
I 
I 
l 


j 
I 
j 
TE 
j 
j 
j 


I 
l 
I 
Adatok 1 
] 
j 


38. ábra. A 2.1 feladat szubrutinjai 


(5) Adatok 
A modul adat típusú. Egyetlen feladata, hogy a 10 állóeszköz következő adatait tá- 
rolja (38. ábra) : 
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Bruttó érték (eFt) Beszerzés éve 


B E 
1. 2500 1982 
2. 500 1984 
3. 3050 1984 
4. 162 1984 
5. 520 1980 
6. 1610 1978 
Zs 3960 1979 
8. 865 1980 
9: 32 1976 
10. 785 1981 


A program kódolása 


Itt csupán a program módosult részeinek kódolását mutatjuk be. 


Az (1) modul kódja a szubrutinhívásokat és a befejezés eldöntését tartalmazza: 


S6 REMtXEKXKX VEZERLES kkikkKk 

TO GOSUB 2348 

eg GOSUR 390 

az GOSUB 548 

122 ÍNPUT"TOVABB 7 (IGEN-1i, NEM-AR?) 
116 IF T-i THEN 809 

í1znúa Gú TÜ 8E56A 


A (3) modul kódjában az első utasítás a soron következő gép alapadatainak olv 


sása lesz: 
319 READ B.E 


A (2), (3) és (4) modulokat szubrutinokként kell megírni, ezért az utolsó utasítás 


mindegyikben a RETURN lesz. 


A (4) modul kezdetén töröljük a képernyőt. Ezt a műveletet PRINT utasítással 
lehet elvégezni, ha a SHIFT lenyomásával együtt a CLR karaktert , nyomtatjuk ki". 


mA HT gép, 4 a PRIMO és € a Sinclair-gépek esetében a CLS utasításssal 


lehet ezt elérni. 
Végül a programot ki kell egészíteni az (5) modul DATA utasításaival. 


SD8 REMkkk4kK ADATOK kikikk 
819 ONTA 2599 , 19382 ,599 , 1384 
sza CATA 3959,1984,162,1984 
9838 OATA 5z6,1959,18518,13978 
349 DATA 339460, 19759,865,1980 
858 ORTA 3£,1276.785,1981 
388 ENÜ 


A kapott eredmények értékelése 


A program a feladatát hibátlanul ellátja, de ha az utolsó állóeszköz amortizációjá- 


nak kiírása után T—1 választ adunk, akkor 
OUT OF DATA 


hibaüzenet jelenik meg. Ennek az az oka, hogy a 10. számítási és kiírási lépés után is 
a program újabb állóeszközadatait próbálja beolvasni. Mivel több adatot nem talál, 
a fenti hibaüzenettel figyelmezteti a felhasználót, hogy a READ utasítást és az utá- 
na következő részt nem tudja végrehajtani. 

Felhívjuk az olvasó figyelmét, hogy a fenti ugyan egy lehetséges megoldás, de 
az ún. veszélyes programszerkezetek közé tartozik, mert a GO TO utasításciklust 
képez a programban, és a programozó nem ellenőrzi, hogy a ciklus mikor fejeződik 
be. Az ellenőrzést a gépre bízzuk, és az akkor állítja le aprogramot, amikor elfogy- 
nak az adatok. A 8. részben a ciklikus problémák megoldására szabályos szerkezetet 
mutatunk be, de más szerkezetek alkalmazásával is ki lehet kerülni az ilyen meg- 
oldást. 

A 3. feladat megoldása előtt ismerjünk meg egy új fogalmat! 


A SZÖVEGES VÁLTOZÓK 


Egyes feladatok megoldása azt is igényli, hogy a program ne csak numeri- 

kus, hanem szöveges változókat is tudjon kezelni. A BASIC nyelvnek van- 

nak ilyen lehetőségei. Egy szöveges adat korlátozott hosszúságú lehet. 
A Commodore-nál egy szöveges változó 255 jel hosszúságú lehet. 


m Ugyanez az értéke a HT gépeknél is. 
A A PRIMO-nál csak 50 jelből állhat a sorozat (de kibővíthető 
max. 9450-re). 
Szöveges adat például egy név: 
KOVÁCS PÁL 


A szöveges adatot meghatározáskor idézőjelek közé kell tenni, hogy 
a program tudja értelmezni. 

A szöveges adatok a numerikus adatokhoz hasonlóan lehetnek: kons- 
tansok és változók. ; 

A szöveges konstans a program során nem változtatja tartalmát. Ilyen 
szöveges konstans a PRINT utasítás tárgyában megadott szöveg: 


119 PRINT" NETTO ERTEK SZAMITAS" 


Ha a szöveges adat tartalma a program során megváltozik, vagy értékét 
ugyan nem változtatja meg, de többször kell rá hivatkozni, akkor a szö- 
veges adatot változóként kezeljük. Ekkor a szöveges adat változónevet 
kap. A szöveges adatok változónevét a numerikus változók nevéhez 
hasonlóan képezzük, azzal az eltéréssel, hogy a változónév végére $ jelet 
kell írni. Ilyen lehet például: 


A$, C5$ 


e A Sinclair-gépeknél a szöveges változó neve egyetlen betű lehet 
(és utána a $ jel). 


A szöveges változók a már ismert módokon kaphatnak értéket. Érték- 
adás történhet a LET utasítás segítségével: 


119 LET B$-" , ..., NETTO ERTEK SZAMITAS" 
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3. feladat 


Magánszemélyek nettó jövedelmét kell kiszámítani a bruttó jövedelemből a megfele- 
lő jövedelemadó és községfejlesztési hozzájárulás levonása után. A feladatot a 
45/1983. (XI. 20.) Minisztertanácsi rendelet előírásai szerint kell megoldani. Egy- 
szerűsítésként személyenként és évente egy alkalommal kell a számolást elvégezni 
a kumulált éves bruttó jövedelem alapján. 

A feladat megoldása során a következő adatokat keil kiírni: 


BRUTTO JOVEDELEM XXXXXX Ft 
JOVEDELEMADO XXXX Ft 
KOFA XXX Ft 
NETTO JOVEDELEM XXXXXX — Ft 


A feladat elemzése 


A feladat megoldási menete az idézett rendelet értelmében a következő: a bruttó 
jövedelemből le kell vonni 596 költséghányadot és a befizetett társadalombiztosítási 
összeget. A maradék a jövedelemadó alapja. A jövedelemadó mértékét az alábbi táb- 
lázat segítségével kell meghatározni: 


Adóalap Adó 

20 000 Ft-ig 29 

20 001— 40000 Ft 400 Ftésa 20 000 Ft-on felüli rész  696-a 

40 001— 60 000 Ft 1600 Ftésa 40 000 Ft-on felüli rész 1096-a 

60 001—100 000 Ft 3600 Ftésa 60 000 Ft-on felüli rész 2095-a 
100 001—200 000 Ft 11 600 Ft és a 100 000 Ft-on felüli rész 3899-a 
200 001—400 000 Ft 49 600 Ft és a 200 000 Ft-on felüli rész 5096-a 
400 001-—600 000 Ft 149 600 Ft és a 400 000 Ft-on felüli rész 6095-a 
600 001— 269 600 Ft és a 600 000 Ft-on felüli rész 6595-a 


A községfejlesztési hozzájárulás (KÖFA) mindig az adó 1096-a. A feladat egyszerű 
algoritmussal megfogalmazható, ezért számítógéppel megoldható. 

A számítás elvégzéséhez két adat szükséges: a bruttó jövedelem és a társadalom- 
biztosítási összeg. Az eredményadatok ezekből már kiszámíthatók. 

A feladat megoldásához szükség van egy adatbeo/lvasó modulra, egy számítási 
modulra és egy kiíró modulra (39. ábra). 


Jövedelem - 
számítás 


Adatbeolvasás 


39. ábra. A 3. feladat programjának szerkezete 
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A program tervezése 


Vizsgáljuk meg az egyes modulokat kicsit részletesebben! Az adatbeolvasási modul- 
ban két adatot (bruttó jövedelem — BJ és társadalombiztosítás — TB) kell beolvasni 
a billentyűzetről. Egyszerűsége miatt további bontása felesleges. 

A nettó értékszámítási funkció két lépésre osztható: a bruttó jövedelemből a 
szükséges levonásokkal elő kell állítani az adóalapot, majd ebből az adót kell kiszá- 
mítani. Ez utóbbi művelet során meg kell vizsgálni, hogy az adóalap melyik sávba 
esik, majd ki kell számítani a levonásokat. Mivel ez a művelet elég terjedelmes CASE 
szerkezetet fog alkotni, tanácsos a többi számítást leválasztani róla. 

Ennek figyelembevételével tekintsük önálló modulnak az adóalap-számítást (le- 
vonások), a jövedelemadó -számítást és ismét külön modulnak a KOÖOFA-számítást 
is magába foglaló nettójövedelem-számítási modult. A kiírás egy modulban meg- 
oldható (40. ábra). A feladatot 5 modulra bontottuk fel. 

A feladat megoldása szempontjából nagyon lényeges a jövedelemadó-számítás, ezért 
alakítsuk ki ennek algoritmusát. 

Az első lépésben meg kell vizsgálni, hogy az adóalap melyik sávba esik. Ezt egy 
8-felé szétváló CASE szerkezettel lehet elvégezni. Egy intervallumba tartozást álta- 
lános esetben két vizsgálattal lehet elvégezni (az értéke nagyobb az alsó határnál, 
kisebb a felső határnál). Amikor ilyen folyamatosan csatlakozó intervallumokba 
esést vizsgálunk, akkor az első intervallumnál még két, utána intervallumonként már 
csak egy vizsgálat is elegendő, ha a vizsgálat során vagy alulról felfelé, vagy felülről 
lefelé folyamatosan haladunk. 

Ha a program kiválasztotta az intervallumot, akkor a következő lépésben az adó- 
alap és az intervallum alsó határa közti különbséget kell képezni. A különbség elő- 
írás szerinti százalékához hozzá kell adni a sávra jellemző konstansot és a művelet 
befejeződik. Ezzel az adót kiszámítottuk, amelynek 1096-a a KOFA. Az utolsó lépés 
a számított eredmények kiírása. 

A feladat vezérlési szerkezetének egyszerűsége miatt tekintsünk el a vezérlőmo- 
dult alkalmazó szerkezettől. 


A modulok tervezése 


(1) Adatbeolvasás 
A modul adat típusú. A modulban két adatot (BJ és TB) kell billentyűzetről beol- 
vasni INPUT utasítás segítségével (41. ábra). 


(1) Jövedelem- (5) 
Adatbeolvasás számítás Kiírás 


(2) .. Cc3) . (4) 
Adóalap - Jövedelemada- Nettó jövedelem 
számiítds számítás számítás 


40. ábra. A 3. feladat modul szerkezete 
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e sszés — — — — — — 41. ábra. Az (1) és (2) 
(3) modul modul folyamata 


(2) Adóalap-számítás 
A modul eljárás típusú. Bemeneti adatai az (1) modulban beolvasott BJ és TB érté- 
kek, kimenete pedig az adóalap (AA). 

A számításkor a bruttó jövedelemből előbb levonjuk az 59 költséghányadot 
(0.95-tel való szorzás), majd ezt a társadalombiztosítási összeggel csökkentjük 
(41. ábra). 


(3) Jövedelemadó -számítás 
A modul eljárás típusú. Bemeneti adata az adóalap (AA) a (2) modulból. A modul 
kimeneti adata a jövedelemadó. 

A modul kezdetén meg kell keresni, hogy az adóalap (AA) a 8 lehetséges inter- 
vallum közül melyikbe tartozik, majd az intervallumtól függően a következő kép- 
lettel lehet a jövedelemadót kiszámítani: 


JA — KtH(AA—AH) SZ 


ahol 
JA  — jövedelemadó, 
K — az intervallumhoz tartozó konstans adórész, 
AH — az intervallum alsó határa, 
SZ  — Az adó arányos részének százalékértéke. 


Az AH-t és SZ-t konstansnak tekintjük. Ezzel a modul algoritmusa már felépít- 
hető (42. ábra). 


(4) Nettó jövedelem számítása 
A modul eljárás típusú. Bemenetei a bruttó jövedelem (BJ) és a levonások (TB, JA). 
A modulban először a KOFA-t kell kiszámítani, amely a jövedelem 1096-a: 
KF- 0.1" JA 
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(2) modul 


C€ 3) modul 
42. ábra. A (3) modul műveletei 
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Majd a bruttó összegből le keli vonni valamennyi csökkentő tételt, és megkapjuk a 
nettó jövedelmet: 
- NJ — BJ—(TBFJATKF) 


Ezzel a modul terve elkészült (43. ábra). 


(5) Nettó jövedelem kiírása 
A modul eljárás típusú. Bemenetét a kiírni kívánt adatok (BJ, JA, KF és NJ) alkot- 
ják, és ezek a kimeneti adatok is a kísérő szövegekkel. 

A kiírás a korábban megismert módon elvégezhető. Hogy ne kelljen minden sor- 
ban az FT szövegrész kiíratásával konstansként foglalkozni, alakítsunk ki egy szöve- 
ges változót, amely az összeg utáni szóközt és az FT szöveget tartalmazza: 


F$-" FT" 


Ezzel elérjük, hogy minden sor végén ezt a szöveges változót kell kinyomtatni (43. 
ábra). 


FTÉ 
meghatározása 
Bruttó jövedelem 

kiírás 

Jövedelemadó 
kiírás 
KÖFA kiírás 


Nettó jövedelem 
kiírás 


43. ábra. A (4) és (5) modulok folyamatai 
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A kódolás 


Szokásunkhoz híven nem mutatjuk be a feladat teljes kódját, csupán néhány újszerű 
vagy kritikus kódszakaszt adunk közre. 

A CASE szerkezet kódjánál először a hét IF utasítást írjuk le. A 8. felesleges, 
mert ha az adóalap nem esik bele a 400 001 és 600 000 forint közötti sávba, akkor 
a megoldás értelmében az adóalap 600 000 Ft-on felül van. Az IF utasítások leírása- 
kor még nem tudjuk, hogy az egyes esetek kódja hová kerül, így a THEN utáni részt 
egyelőre üresen hagyjuk: 

igsd IF ARC-A4NDONG THEN 


Ezután az egyes esetekhez tartozó jövedelmadó-számítások kódolására térünk át: 


289 REMAxK 2. ESET x£ 
233 JA-49B9DtTTAN- 239909 x9g. 96 
399 G6 TO 


Látható, hogy a CASE szerkezet végére ugró utasítás ugrási címét egyelőre üresen 
kell hagyni. Az eset kódolása után kipótoljuk a 180. sor kódját: 


izd IF AAC-4dONZGO THEN z50 


Amikor valamennyi eset kódját leírtuk, akkor a CASE szerkezet végéhez értünk, és 
ekkor már kiegészíthetjük a 300. sorszámú utasítást: 


za9g Gu Tü 49309 


Az (5) modul kódolásánál először a Ft-ot tartalmazó szöveges változónak adunk 
értéket: 
549 F$-" FT" 


Ennek felhasználásával kódolhatjuk a kiírási sorokat: 


58 FRINT"BRUTTO JÜVEDELENM ":BJ:F$ 
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Ellenőrző kérdések és feladatok 


1. Mi a főág a programban? 


2. A módosított 2. feladatban a bemeneti adatok modul a 200-as soron, az amorti- 
zációszámítás a 300-as soron kezdődik. Megcserélhető a két modul kódja a 
programban (az amortizációszámítás a 200-as soron, a bemeneti adatok a 300-as 
soron kezdődne)? 

Ha elvileg igen, akkor a program többi része változatlan maradhat a helyes mű- 
ködéshez? 


3. Milyen típusú változókat ismer? Mi jellemzi ezeket? 


4. Egészítsük ki a 3. feladatot úgy, hogy részfizetések esetén is helyesen működjék. 
Ehhez a bruttó jövedelem mellett az év során korábban kifizetett bruttó jövedel- 
mek összegét is be kell kérni. A levonásokat és a nettó jövedelmet a teljes bruttó 
jövedelemből kell kiszámítani, de a korábbi levonásokat és a nettó jövedelmet le 
kell vonni a kapott eredményből. Készítsük el a programot! 


5. Készítsen programot, amely 1 és 5 közötti számokat kér be. A beírt számnak 
megfelelő sorszámú sorba írjunk ki egy csillagot. Ha a felhasználó nem 1 és 5 kö- 
zötti számot írt be, akkor írja ki a program: 


HIBAS ADAT; IRJA BE UJRA! 
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7. A SZUBRUTINOK ALKALMAZÁSA 


A szubrutinok alkalmazása többször végrehajtható részfeladatok 
megvalósítására. A 4. feladat megoldása 


Az előző részben megismert GOSUB, RETURN utasításpár nemcsak ve- 
zérlőszerkezetek kialakításához alkalmazható, hanem olyankor is, ami- 
kor egy műveletsorozatot vagy egy modult többször is végre kell haj- 
tani. Itt nem valamilyen műveletsorozat ciklikus ismétlésére gondolunk, 
hanem olyan esetre, amikor ugyanazt a műveletsorozatot (modul) a 
program több pontján kell végrehajtani. A program készítőjében jogo- 
san merül fel az az igény, hogy ilyenkor az ismétlődő modult csak 
egyszer kelljen kódolni, és a megfelelő helyekről — ahol végre kell haj- 
tani — hívni lehessen. 

A szubrutin valamilyen részfeladatot lát el a programon belül. Nem 
biztos, hogy a különböző hívási pontokon ugyanazokkal az adatokkal 
kell a feladatát végrehajtani. Ilyenkor a hívás előtt a szubrutin bemeneti 
változóinak aktuális értékét meg kell határozni értékadási utasításokkal. 
Ezt nevezzük a szubrutin paraméterezésének. 

Mint már láttuk, egy programban több szubrutin is lehet, egy szubru- 
tint több helyről lehet hívni, és szubrutinból is lehet szubrutint hívni. 
Az utóbbiakat egymásba ágyazott szubrutinnak nevezzük. Az egymásba 
ágyazás (egymásból hívás) szintjeinek száma nem tetszőleges. Ez a szám 
gépenként változik, de elég nagy ahhoz, hogy ne okozzon gondot. 


4. feladat 


Egy anyagot (ceruza) tartalmazó , mini" raktár készletnyilvántartását kell elvégezni. 
A számítógépben tárolni kell az anyag mindenkori készletét. Anyag be- és kivétel 
esetén ki kell írni a mozgás főbb adatait: 


a) Anyagbevételezés esetén: 
ANYAGBEVETELEZES 
A BEVETELEZETT MENNYISEG: XXX 
A BEVETELEZETT ERTEK: XXXX 


b) Anyagkiadás esetén: 
ANYAGKIADAS 
A KIADOTT MENNYISEG: XXX 
A KIADOTT ERTEK: XXXX 
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A feladat elemzése 


A feladat értelmében az anyag mindenkori készletét kell tárolni a számítógépben. 
Kis mennyiségű adatnál ez a programon belül megoldható a DATA utasítás segít- 
ségével. Ahhoz, hogy a DATA utasításban levő változó adatot változtatni lehessen, 
az utasítást minden programvégrehajtás után át kell írni (programmódosítás). Erre 
tehát figyelmeztetni kell a felhasználót. 

Alapvetően két tevékenységet kell elvégezni. Az egyik az anyagbevételezés, a má- 
sik az anyagkiadás. Mivel ezek vagylagosak, a felhasználóra kell bízni, hogy eldönt- 
se, melyiket akarja elvégezni, vagy esetleg az egészet befejezi. Ezért a program elején 
egy , menüt" kell a felhasználó elé tárni, hogy a kívánt műveletet kiválaszthassa: 


KESZLETNYILVANTARTAS 
(1) BEVETELEZES 
(2) KIADAS 
(3) BEFEJEZES 


Az egyes műveletek esetében a következő feladatokat kell elvégezni: 


— Végre kell hajtani a mozgással kapcsolatos készletmódosítást. Kiadásnál meg kell 
vizsgálni, hogy megvan-e az illető anyagból a kívánt mennyiség. Ha nincs, ak- 
kor hibaüzenetet kell kiírni; 

— Ki kell számítani a ki-, illetve bevételezett anyag értékét. Ehhez szükség van az 
anyag egységárára; 

— Ki kell írni a mozgással kapcsolatos adatokat a specifikáció szerint; 

— Végül a befejezés előtt fel kell szólítani a felhasználót arra, hogy írja át a készle- 
tet tartalmazó programsort; 

— A bevételezés és kiadás után újra ki kell írni a menüt. 


A modulok szerkezetét a 44. ábra mutatja. 


Megállapíthatjuk, hogy a feladat elvégzéséhez az alábbi adatokat kell tárolni az 
anyaghoz: 


— készletmennyiség, 
— egységár. 


A program tervezése 


Vizsgáljuk meg a program egyes moduljait! A menü modul további bontása felesle- 
ges. A bevételezett mennyiség modul egyetlen összeadásból áll, míg a kiadott mennyi- 
ség modulnál előbb meg kell vizsgálni, hogy megvan-e a kivenni kívánt mennyiség az 
anyagból. Ha nincs, akkor hibaüzenetet kell kiírni: 


ENNYI NINCS 


Ezután az anyagkiadási művelet elejére kell visszatérni, hogy a felhasználó módo- 
síthassa a kiadni kívánt mennyiséget. Ezek a műveletek egy modulban elvégezhetők. 
A többi modult sem kell tovább bontani, mivel eléggé egyszerűek. 

Mind a bevétel, mind a kiadás esetén a művelet befejeztével a menü modul kez- 
detére kell adni a vezérlést, hogy a felhasználó kiválaszthassa a következő művele- 
tet (45. ábra). 

Az adatokat DATA utasításban tároljuk. Célszerű vagy egyszerre beolvasni mind 
a két adatot, vagy ha egyenként olvassuk, akkor fokozottan kell ügyelni az olvasás 
sorrendjére, mivel az olvasó utasítások nem egymás után helyezkednek el. Az előbbi 
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megoldást választjuk, mivel ez az egyszerűbb. Ezt a műveletet a program kezdetén 
kel! elvégezni. 

Az adatkezelésnél figyelembe kell venni, hogy a tárolt készletadatot a program- 
futás végén módosítani kell az aktuális értékre a ki- és bevételek miatt. A program 
a befejezés előtt a tényleges készletadat alapján felszólítja a felhasználót az adat át- 
írására. 

Mindkét készletmódosítási műveletnél az értékszámítás modul azonos, ezért ezt 

csak egyszer kódoljuk szubrutin formájában, és ahol végre kell hajtani, onnan hív- 
juk (45. ábra). 
Vegyük szemügyre a modulszerkezetet! Jól felismerhető, hogy a (2) menü modul 
nem csupán a menükiíírást végzi el, hanem vezérlő funkciót is ellát az anyagbevéte- 
lezési, anyagkiadási és befejezési feladatok hívásával. Ezért ezt a modult vezérlőmo- 
dulnak alakítjuk ki, amely a 3 műveletcsoportot szubrutinként hívja. 

Az anyagbevételezés, anyagkiadás és befejezés modulokat a tervezéskor további 
modulokra bontottuk, és csupán azért tartottuk meg őket, hogy az ábra jobban át- 
tekinthető legyen. Mivel szekvenciálisan végrehajtandó modulokat vezérelnek, kó- 
dolásuktól most eltekintünk. 

A feladat megoldásának egyszerűsége végett az anyagbevételezés, anyagkiadás és 
befejezés részfeladatait műveletenként egy-egy szubrutinban foglaljuk össze: a (3), 
(4) és (5) modul egy szubrutin, a (6), (4) és (7) egy másik, valamint a (8) és (9) 
egy szubrutin. 


A modulok tervezése 


(1) Készletmásolás 
A modul eljárás típusú. Bemenetei a DATA utasításban tárolt két adat (készlet, egy- 
ségár). Kimenete a progamban használt készletadat (K). 

A modulban beolvassuk a tárolt adatokat (46. ábra). 


(2) Menü 
Vezérlő típusú modul. Bemenete a felhasználó által begépelt adat, amellyel a műve- 
letet választja ki. Kimenete a kiválasztott modul hívása. 

A modul kezdetén töröljük a képernyőt. 

Ezután az üres képernyőre ki kell írni a menüt (lásd a feladatelemzésben), majd 
le kell olvasni a felhasználó döntését (D adat) a 


MELYIKET VALASZTJA? 


kérdésre. A D értéke dönti el, hogy melyik szubrutint kell hívni. A választott mű- 
veletet egy CASE szerkezettel lehet kiválasztani. 

Itt kell figyelembe venni, hogy a CASE szerkezetben egy szubrutint hívunk. 
A szubrutin végrehajtása után a hívó utasítás utáni utasításra kerül a vezérlés. Ez 
pedig a CASE szerkezet értelmében a D értékének vizsgálata (46. ábra). 

Ez nem okoz gondot, hiszen a szubrutin végrehajtása során D értéke nem válto- 
zik meg, és így a következő vizsgálat eredménye nem lehet egy újabb szubrutinhí- 
vás. Ha például a felhasználó az anyagkiadási műveletet hívja, akkor 2-t gépel be 
(D—2). Ekkor a D—2 feltétel teljesül, a gép hívja az anyagkiadási szubrutint. Ennek 
végrehajtása után a D—3 feltétel vizsgálatára tér vissza a program. Ez a feltétel nem 
teljesül, vagyis a befejezést sem hajtja végre. Tehát a vezérlés helyesen fog működni. 

A befejezés kivételével minden művelet után újra a menü kiírására kell vissza- 
térni, hogy a felhasználó újabb műveletet hajthasson végre. Ezért a CASE szerkezet 
végén egy újabb vizsgálatot kell beiktatni, hogy előzőleg a felhasználó a befejezést 
kérte-e (D—3). Másik oldalról megközelítve erre azért van szükség, mert a két befe- 
jezési modul is szubrutint alkot. A szubrutin végrehajtása után a vezérlés visszakerül 


139 


a hívó utasítást követő utasításra. A modul akkor működik helyesen, ha itt egy 
olyan utasítás áll, amely még egyszer megvizsgálja D értékét. Ha 


D-3, 
akkor újra ki kell írni a menüt, de ha 


D—3, 
akkor a program végére kell ugrani. 7 
Ha a második D5-3 vizsgálat helyén egy GOTO utasítás állna, amely a menüki- 
írásra vinné a vezérlést, akkor a programot sohasem lehetne befejezni, mert a CASE 
szerkezet után a program mindig újra kezdené a menükiadást (46. ábra). 


(3) Bevételezett mennyiség 
A modul eljárás típusú. Bemeneti adata a bevételezett mennyiség (BM). Kimeneti 
adata az új készlet (K). 

A képernyő törlése után be kell olvasni a bevételezett mennyiséget. Az adatot 
hozzá kell adni a készlethez, hogy az új készletet megkapjuk (47. ábra). 


(4) Értékszámítás-hívás 
A modul eljárás típusú. Bemeneti adata az egységár (AR) és a mozgó anyagmennyi- 
ség (MA), kimenete pedig a kettő szorzata (ER). 

Magát a műveletet szubrutinként kódoljuk, és mind a bevételezésnél, mind a ki- 
adásnál használjuk, ezért az anyagmennyiség az egyik esetben a bevételezett meny- 
nyiség (BM), a másik esetben a kiadott mennyiség (KM). Hogy a modul mindkét 
esetben használható legyen, a mozgó anyagmennyiségnek a modul hívása előtt 
adunk értéket (47. ábra). Ezután a szubrutin befejeződik, és újra a (2) modul kö- 
vetkezik, amely a menüt kiírja. Ez a kiírás viszont törli a bevételezés kiírását, s a 
felhasználó el se tudná olvasni az eredményt, ezért a képet , le kell állítani". Csak 
akkor szabad folytatni a programot, ha a felhasználó már , eleget nézte" az ered- 
ményt. Ezt legegyszerűbben egy bármilyen jel beolvasásával lehet megvalósítani. 
(Lásd az AMOR1 programnál!) A program csak akkor folytatódik, ha a felhasználó 
beüt valamilyen billentyűt. 


(5) Adatkiírás (B) 
A modul eljárás típusú: Bemeneti adatai a bevételezett mennyiség (BM) és a bevéte- 
lezett érték (ER). Ezeket az adatokat írja ki a modul (47. ábra). 


(6) Kiadott mennyiség 
A modul eljárás. típusú. Bemeneti adata a kiírni kívánt mennyiség (KM). Kimeneti 
adata az új készlet (K). 

A képernyő törlése után fel kell szólítani a felhasználót, hogy gépelje be a kiadni 
kívánt anyagmennyiséget. 

Ellenőrizni kell, hogy a kívánt mennyiség kiadható-e. Ha igen, akkor a művelet a 
(4) modullal folytatódik, ellenkező esetben a modult újra kell hívni, hogy a fel- 
használó javíthasson (48. ábra). 


(7) Adatkiírás (K) 
A modul eljárás típusú. Bemeneti adatai a KM és az ER. Ezek alkotják a modul ki- 
menetét is. . 

A modul az (5) modulhoz hasonlóan kiírja a kiadás adatait (48. ábra). 


(8) Készletátírás 

A modul eljárás típusú. Kimenete egyetlen emlékeztető kiírás a felhasználónak, 
hogy a készletet tartalmazó DATA utasítás tárgyában levő adatot az aktuálisra írja 
át. Ehhez természetesen ki kell írni az aktuális készletadatot is (49. ábra). 
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46. ábra. A (1) és (2) modul folyamata 


(2) modul 
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47. ábra. A bevételi modulok folyamata 
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Less szásás e gszzellös sk seösö s őtálbakk 


48. ábra. A kiadási modulok folyamata 


(9) Befejezés 
A modul eljárás típusú. A program végén kiírja, hogy a program befejeződött (49. 
ábra). 


Kódolás 


A program kódjából néhány szakaszt emelünk ki. A (2) menü modul kódja alább 
látható. a képernyőtörlő PRINT utasítást (110. sor) úgy kell begépelni, hogv a 
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(C(2) modul 


GENE GldtánáEÁKi E 


Figyelmeztetés 


és K kiírás 


(9) Befejezésíg 889 "1 


VÉGE 
kiírás 


49. ábra. A befejező modulok folyamata 


PRINT után az idézőjel beírása után a SHIFT és CLR billentyűt ütjük le, majd 
újabb idézőjelet írunk. Ezzel a képernyő törlését programozzuk. A listán ez a 
törlőkarakter egy negatív szívként jelenik meg. 


99 REMkE4RKK MENÜ $4ik4XKXK 

119 PRINT"u4" 

129 PRINT: FRINT: PRINT: PRINT 
138 PRINT" KESZLETNYILYANTART AS" 
140 PRINT! PRINT 

1509 PRINT"(12? BEVETELEZES" 

169 PRINT"-(Z2) KIAURS" 

178 FRINT"-3?) SEFEJEZES" 

1932 PRINT 

is6 IMHPUT"MELYIKET VALASZTJA "7D 
egg IF 0-1 THEN GOSUB 258 

219 IF 0-2 THEN GOSUB 4409 

ezg9 IF D-3 THEWM GOSUB 7509 

€39 IF 0-3 THEN 59EG 

239 GG TŰ 119 


A (4) Értékszámítás-hívás szubrutin hívása és a szubrutin formája: 


(anyagmennyiség 
meghatározása) 
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A szubrutin: 


309 REMkikkk$i ERTEKSZAM. SZUBRUTIN kkikiik 
319 ER-MAKAR 
328 RETURN 


Az adatkiírási modulok végén le kell állítani a gépet egy tetszés szerinti adat (F$) 
beolvasásával: 


4798 INPUT"HA BEFEJEZTE, NYOMJON LE EGY GOMBOT !"7;F$ 
439 RETURN 


Értékelés 


A feladat megoldásában alkalmazott programmódosítás (a DATA utasítás átírása) 
nem a legszerencsésebb módszer. Különösen, ha azt is figyelembe vesszük, hogy ez- 
után a kazettán vagy a lemezen tárolt programot az újjal ki kell cserélni. Ez kazetta 
esetén a tárolt program újra kimásolásával végezhető el, a Commodore lemezegysé- 
gén pedig a . 
SAVE" 2 O:név" 8 
paranccsal, ahol a név a program neve (a nevet nem kell változtatni). A parancs ha- 
tására a program előző változata törlődik, és csak a módosított változat kerül a 
lemezre. 

A 13. és 14. részben megismerünk egy olyan megoldást, amellyel az ilyen fel- 
adat programmódosítás nélkül elvégezhető. 
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8. CIKLIKUS TEVÉKENYSÉGEK Il. 


Különböző ciklikus szerkezetek megvalósítása a programban. 
Néhány függvény. Az 5. feladat megoldása 


A CIKLUS 


Tegyük fel, hogy feladatunk egy raktárban levő anyagok értékének ki- 
számítása számítógépes program segítségével. Az anyagok értékét úgy 
lehet megkapni, ha az egyes anyagok egységárait megszorozzuk a meny- 
nyiséggel : 

E—-A"M 


ahol 
E — egy anyag értéke, 
A — az egységár, 
M — a mennyiség. 


Egy raktárban többféle anyag van, és az összértéket úgy kapjuk meg, 
hogy a fenti szorzatot minden anyagra kiszámítjuk: 


E; — A; "Mi 


Végül az E; értékeket össze kell adni, és megkapjuk az összes értéket: 
F—-E,HE2HEzt......... En 


Ha most ezt a feladatot egy programmal kívánjuk megoldani, akkor elvi- 
leg azt kellene csinálni, hogy az értékszámító szorzatokat annyiszor írjuk 
be a programba, ahányszor végre kell hajtani : 


100 E1—A13M1 
110 E2—A2XxM2 


Nyilvánvaló, hogy ez nehézkes, ráadásul megvalósíthatatlan is. Képzel- 
jük el ezt a megoldást egy 1000-féle anyagot tartalmazó raktárban! 
Ennyi utasítást a kisebb gépekbe be sem lehet írni. Ennyi változónevet 
sem tudunk adni. Azonfelül az anyagok is változhatnak (valamilyen 
anyag megszűnik, új anyagok jönnek), és a programot minden anyag- 
féleség változása után módosítani kellene. 

Észre lehet venni a szabályosságot a példákban. Az elvégzendő műve- 
let mindig ugyanaz. Tehát az elvégzendő műveletet csak egyszer kódol- 
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juk, és minden alkalommal más adatokkal (a következő anyag) kell 
végrehajtani. Lépésekre bontva a következőt kapjuk: 


1. adatmeghatározás (következő anyag A, M) 
2. értékszámítás (E — A:M) 


A 2. lépés után ismét az első, majd a következő anyag adataival a 2. lé- 
pés, utána megint az 1., és így tovább következik. A műveletet cikliku- 
san ismételve hajtja végre a program, ezért az ilyen szerkezetet ciklus- 
nak nevezzük. 

Az összértéket az egyes anyagok értékének kiszámítása után kell 
meghatározni. Ilyenkor minden anyag értékét meg kellene jegyezni egy- 
egy változóban, és az egyedi értékszámítás után ezeket kell összegezni. 
Nem lehetne ezt valahogy egyszerűbben meghatározni? Az összegezést 
lépésenként is végre lehet hajtani, vagyis az F értékéhez minden érték- 
számítás után hozzáadjuk az aktuális értéket (E). Ennek eredményeként 


az összeg is rendelkezésre fog állni. Bővítsük ki ezzel a lépéssel a kiszá- 
mítás menetét: 


1. adatmeghatározás 
2. értékszámítás 
3. az érték hozzáadása az összeghez (F-t-E) 


Könnyen észrevehető, hogy az értékösszegezés csak akkor működik he- 
lyesen, ha a művelet elején F értéke nulla. Ellenkező esetben az induló 
érték hozzáadódna az összes értékhez. A műveletek folyamatát az 50. 
ábra mutatja. 

Jól látható a ciklus előnye: ha egy műveletsort különböző adatokkal 
akarunk végrehajtani, akkor csak egyszer kell kódolni és minden adattal 
végrehajtani. 


50. ábra. Raktárban lévő anyagok értékszámítása 
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Meddig kell a ciklust ismételni? Addig, amíg van adat, amellyel a mű- 

veletet el kell végezni. Ezért a ciklusban valahol meg kell vizsgálni, hogy 
van-e még adat, amellyel a műveletet végre kell hajtani. A vizsgálat a 
ciklus kezdetén vagy végén állhat (51. ábra). Akárhol is legyen a vizsgá- 
lat, a ciklusból tovább kell menni (be kell fejezni), ha a vizsgálat ered- 
ménye ezt mutatja. 
A ciklus kezdete előtt van egy művelet (pl. F—O), amelyet csak egyszer 
kell ugyan végrehajtani, de a ciklushoz kapcsolódik. Az ilyen művele- 
tek alkotják a ciklus előkészítését. Magát a műveletsort, amelyet ismé- 
telten végre kell hajtani, ciklusmagnak nevezzük. A ciklus folytatásával 
vagy befejezésével kapcsolatos vizsgálatot ciklusfeltétel-vizsgálatnak ne- 
vezzük. Az az adat, amelynek értéke meghatározza a ciklus folytatását 
vagy befejezését, a ciklus változója. Példánkban az anyagszám a ciklus- 
változó. A ciklus addig kell ismételni, amíg minden anyagot sorra nem 
vettünk. 

Összefoglalva, egy ciklus három részből áll: 


— előkészítés, 

— ciklusmag, amely magában foglalja 
a ciklikusan végrehajtott műveletet, és ezzel együtt vagy ettől füg- 
getlenül, 
a ciklusváltozó értékének módosítását, 

— ciklusfeltétel-vizsgálat, vagyis a ciklusváltozó értékének vizsgálata. 


51. ábra. A ciklus műveletei 
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A ciklusszerkezetet kétféle algoritmusban valósíthatjuk meg, attól füg- 
gően, hogy hol helyezkedik a ciklusfeltétel-vizsgálat : 

Az elöl tesztelő típusú ciklusszerkezet: Mint a nevében is benne van, 
az elöl tesztelő ciklusban a feltételvizsgálat a ciklusmag végrehajtása 
előtt történik meg (52. ábra). A ciklusmagot mindaddig végre kell haj- 
tani, amíg a végrehajtási feltétel fennáll. Ha a feltétel már nem teljesül, 
. akkor a ciklus befejeződik, és a vezérlés a ciklus után következő utasí- 
tásra kerül. 

A hátul tesztelő típusú ciklusszerkezet: A feltételvizsgálat a ciklusmag 
után megy végbe (53. ábra). Azt kell vizsgálni, hogy a befejezés felté- 
tele fennáll-e. Ha ez még nem áll fenn, akkor a ciklust folytatni kell. 
Ha a befejezés feltétele. fennáll, akkor a ciklus befejeződött. 

A két szerkezetet összehasonlítva látható, hogy a feltételvizsgálat helye 
és a vizsgálat jellege eltér egymástól. Az elöl tesztelő szerkezetben a 
folytatás feltételét kell vizsgálni, a hátul tesztelő szerkezetekben a be- 
fejezés feltételét kell vizsgálni. 

Többnyire bármelyik szerkezetet lehet használni. Vannak azonban 
olyan feladatok, ahol vagy csak az egyiket, vagy csak a másikat lehet 
használni. 

Ezek a tiszta esetek néhányszor nem alkalmazhatók, mert arra kény- 
szerülünk, hogy a ciklusfeltétel-vizsgáiatot sem a ciklus elején, sem a 
végén, hanem valahol a közepén helyezzük el. 

A ciklikus tevékenységek kódolásához is érdemes a ciklus szerkezetét 
kifejező kódolási formát alkalmazni. Az elöl tesztelő ciklusszerkezet 
kódolási formáját az 54. ábra mutatja. A hátul tesztelő ciklusszerkezet 
kódját az 55. ábrán láthatjuk. 


Előkészítés 


Előkészítés 
Ciklusmag 


Befejezési 
feltétel 


Folytatási 
eltétel 


igaz 


52. ábra. Az elöl tesztelő típusú ciklus- 53. ábra. A hátul tesztelő típusú 
szerkezet ciklusszerkezet 


Előkészítés 


REM it CIKLUSKEZDET tt 

IF folytatási feltétel THEN 7 
GOTOL 

REM § CIKLUSMAG it 


Ciklusmag 


GOTOm 
REM 4 CIKLUSVEG 4 


Folytatás 


Előkészítés 


REM 4 CIKLUSKEZDET 4 


Ciklusmag 
lasásákáselásááállköteme E kÉTKÜ EZÉ E tte tsnszütülsl ásáásááék 
IF befejezési feltétel THEN p 
GOTON 
REM § CIKLUSVEG 4 
Folytatás 


54. ábra. Az elöl tesztelő ciklus 
kódolási formája 


55. ábra. A hátul tesztelő ciklus 
kódolási formája 
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A bemutatott két szerkezeten kívül a BASIC-ben van kifejezetten 
ciklusutasítás: ez a FOR, STEP, NEXT utasításhármas, amelyet azonban 
röviden csak FOR, NEXT utasításpárnak hívunk. 

Nézzük meg, hogy a FOR és a NEXT utasításpárral hogyan lehet cik- 
lust kialakítani. 


A FOR, NEXT UTASÍTÁSPÁR 


Ha a ciklusmagban van olyan változó, amelynek értéke minden ciklus- 
mag végrehajtása során egyenletesen (lineárisan) változik (nő vagy csök- 
ken), és értéke alapjána ciklus befejezése eldönthető, akkor a ciklus kó- 
dolásához a FOR, NEXT utasításpár felhasználható. Az említett változó 
pedig a ciklusváltozó lesz. A FOR, NEXT utasításpárral felépített cik- 
lusban azt kell meghatározni, hogy a ciklusváltozó milyen kezdőértéké- 
től, milyen lépésenként haladva, milyen végfeltételértékig kell a ciklust 
végrehajtani. A program a ciklusmagot mindaddig végrehajtja, amíg a 
ciklusváltozó értéke meg nem haladja a záróértéket, ha a ciklusváltozó 
értéke növekszik, illetve ha a ciklusváltozó értéke csökken, akkor ad- 
dig, amíg a ciklusváltozó a záróérték alá nem csökken. A ciklusváltozó 
értékének módosítását a program minden ciklusmag végrehajtásakor 
automatikusan elvégzi, és ha a folytatási feltétel nem teljesül, a gép a 
ciklust befejezi. 

A FOR, NEXT utasításpárral kialakított ciklust számlált menetű 
ciklusnak is nevezzük. 

A FOR utasítás vezeti be a ciklust. Definiálja a ciklusváltozót, vala- 
mint ennek kezdő- és záróértékét. A FOR utasítás formája : 


x FOR ciklusváltozó — 1. kifejezés TO 2. kifejezés STEP 1 3. kifejezés 


ahol 
1. kifejezés — a ciklusváltozó indulóértéke, 
2. kifejezés — a ciklusváltozó záróértéke, 
STEP — a növekménymeghatározás kulcsszava, 
3. kifejezés — növekmény. 


A ciklusmagot a 
NEXT ciklusváltozó 


utasítás zárja le. Hatására a program visszaadja a vezérlést a FOR utasí- 
tásnak, amely kiszámítja a ciklusváltozó következő értékét. A ciklusmag 
utolsó végrehajtása után a vezérlés a NEXT utasítás utáni utasításra 
kerül át. j 

A FOR, NEXT utasításokból felépített ciklus befejezésekor a ciklus- 
változó értéke azt az értéket veszi fel, amellyel az utolsó ciklusmag vég- 
rehajtódott. 
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Ha a növekmény 1, akkor az utasításból a 2. kifejezés utáni rész 
(STEP . . .) elhagyható. A Sinclair-gépeken a ciklusváltozó csak egyetlen 
betű lehet. 


FÜGGVÉNYEK 


Tegyük fel, hogy egy feladaton belül van egy olyan részfeladat, amely- 
ben meg kell határozni egy A változó abszolút értékét. Közismert, hogy 
az abszolút érték mindig nem negatív szám: 


IAlz0 


Ezt ki lehet számítani az 56. ábrán látható algoritmussal, illetve az aláb- 
bi utasítással : 
200IFACO THEN A ——A 


Mindezt el is hagyhatjuk, mivel a BASIC-ben van olyan függvény, 
amellyel az abszolút értéket közvetlenül meghatározhatjuk. Ez az ABS 
függvény. Az abszolút érték kiszámításához a bemutatott példában a 
következőképpen lehet felhasználni : 


200 A — ABS(A) 
e Sinclair-gépeknél:200A— ABS A 


A BASIC nyelvben több ilyen , beépített" függvény van, amelyet a 
programozó programíráskor felhasználhat. 

A függvények valamilyen szabály szerint egy független változó érték- 
ből (argumentumból) egy eredményértéket számítanak ki. Általános 
formában felírva: 


Eredmény — függvény (argumentum) 


Az eredmény és az argumentum mindig valamilyen konkrét számérték, 
a függvény pedig a kiszámítás módját határozza meg. Például az ABS 
függvény az argumentumból mindig az argumentum számértékének 
megfelelő pozitív eredményt állít elő. 

De van ennél több segítséget nyújtó függvény is. Például a SIN függ- 


56. ábra. Abszolút érték meghatározása 
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vény, amely az argumentum szinuszát számítja ki (az argumentumot Ív- 
mértékben feltételezi a gép) : 


200 A —SIN (B) 
e Sinclair-gépeknél: 200 A-—SIN B 


Az A (eredmény) értéke a B szinusza lesz. A függelék tartalmazza va- 
lamennyi függvényt. Számunkra azért előnyös a függvények használata, 
mert lehetővé teszik, hogy valamilyen eredményt egyetlen utasítással 
számítsunk ki ahelyett, hogy több lépéses műveletet végeznénk el az 
érték kiszámításához. Van olyan függvény is, amelyet más BASIC uta- 
sításokkal egyáltalán nem vagy csak roppant erőfeszítések árán tudunk 
pótolni. 

A meglevő függvényeken kívül a felhasználó is definiálhat függvénye- 
ket az 5 alapműveletből és a BASIC könyvtári függvényeiből. Ezek a 
felhasználói függvények. 

A felhasználói függvényeket használatuk előtt definiálni kell a prog- 
ramban az alábbi utasítással : 


x DEF FNnév (változó) — kifejezés 


ahol 

DEF — a függvénydefiniáló utasítás kulcsszava, 

FNnév — a felhasználói függvény neve, amelyben a név azo- 
nosítja a függvényt (2 karakter lehet, az első min- 
dig betű), 

változó — — a függvény független változója, 

kifejezés — azokat a műveleteket tartalmazza, amelyek segítsé- 
gével a függvény értékét ki lehet számítani a füg- 
getlen változóból. 

n A HT és 4 a PRIMO gépen ez a lehetőség nincs meg. 
e A Sinclair-gépeknél a név egy betű lehet. 


Tekintsünk most egy részfeladatot, amelynek értelmében egy valós 
számot kerekíteni kell! A részfeladat viszonylag egyszerűen megoldha- 
tó eddigi ismereteink segítségével, de még jobban egyszerűsíthetjük, ha 
egy függvényt is felhasználunk a megoldásban. 

Az INT függvény segítségével vegyes számokból le lehet , választani" 
a törtrészt. A függvény formája: 


x eredmény — INT (argumentum) 


A függvény eredménye az a legnagyobb egész szám (vagy zérus) , amely 
nem nagyobb a kifejezésnél. Például: 


INT (16.25) — 16 
INT (0.47) -—0 
INT (—4.3) — —5 
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e A Sinclair-gépeknél az argumentumot nem kell zárójelbe tenni : 
x eredmény — INT argumentum 


A függvény jól használható pozitív számok kerekítésére. Előtte azonban 
úgy kell alakítani, hogy a törtrész leválasztása után a kerekítésnek meg- 
felelő értéket kapjuk meg. Ezt úgy érhetjük el, hogy a kerekítendő 
számhoz hozzáadunk 0,5-öt : 


A71-0,5 


Ha az A törtrésze 0,5 volt vagy annál nagyobb, akkor az A egész része 
az összeadás következtében eggyel nagyobb lett. Ha ennek vesszük az 
egész részét, akkor az eredeti szám kerekített összegét kapjuk. Például : 


A — 1.53 
A — 1.533-0.5 — 2.03 
INT(A) — 2 


Ha az A törtrésze 0,5-nél kisebb volt, akkor az összeadás után az A 
egész része változatlan marad, és a törtrész leválasztása után a kerekített 
számot kapjuk. Például: : 


A - 2.27 
A — 2.273-0.5 — 2.77 
INT(A) — 2 


A kerekítés elvégzésére definiálhatunk egy függvényt is. Ha a fenti A 
változó értékét kell kerekíteni, akkor ehhez például egy K nevű függ- 
vényt definiálunk: 

100 DEF FN K (A) — INT(A--0,5) 


Hatására a gép , ismerni fogja" az FN K felhasználói függvényt. Ha bár- 
hol a programban kerekíteni akarjuk az A értékét, akkor az FN K függ- 
vénnyel meg lehet határozni a kerekített értéket: 


500B8—-FN K (A) 


B értéke az A kerekített értéke lesz, amit a gép a függvénydefiniálásban 
megadott kifejezés szerint számít ki. 


5. feladat 
Ki kell írni egy egyéves lejáratú áruvásárlási kölcsön havi részletfizetési összegét, a 


hónapokra esedékes kamatot, az alapösszegből havonta visszafizetett összeget és 
a kölcsön maradék összegét a következő táblázatos formában: 


RESZLET KAMAT VISSZA KOLCSON 
OSSZEG OSSZEG FIZ. OSSZEG OSSZEG 
XXXXX XXXXX XXXXX XXXXX 


Az összesítő eredményeket egy sor kihagyással a 14. sorba kell írni. 
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A feladat elemzése 


A kamatos kölcsönök egyenlő részletben való visszafizetésekor az egyes részletek 
összegét a következő képlettel lehet meghatározni: 


ahol 

— a részlet összege, 

— a felvett kölcsön összege, 

— a kamatláb (tizedesszám formájában), 

— a kölesön visszafizetésének tartama években. 


dgdAmJI 


Mivel a feladatban egy 1 évre kapott kölcsönt kell havi részletekben törleszteni, a 
kifejezést módosítani szükséges. A kamat éves szinten értendő, ezért havi törlesztés- 
re az 1/12-ét kell figyelembe venni. A tartam (T) évekre vonatkozik, tehát meg kell 
szorozni 12-vel, hogy a részlet havi összeg legyen. Ennek megfelelően a felhasznált 
képlet: 


Megjegyezzük, hogy negatív F vagy K esetén az eredmény is negatív lesz, ami nyil- 
ván értelmetlen a feladat szempontjából. Ezért csak pozitív F-et és K-t szabad el- 
fogadni. 

Havi törlesztés esetén az adott hónapra esedékes kamat összegét az előző havi 
maradék összeg alapján kell kiszámítani: 


HK—F " 5. 
12 
ahol 
HK — a havi kamat összege, 
F  — az előző havi maradék kölcsön. 


A kölcsön összege a havi részlet és a havi kamatösszeg különbségével csökken: 
CK-F-—-HK 


ahol 
CK — a kölcsönből az adott hónapban visszafizetett összeg. 


Ez nyilvánvaló, hiszen a kamat a kölcsönösszegen felüli összeg, így a kamat fizetése 
nem csökkentheti a kölcsönösszeget. 
A maradék kölcsönösszeg tehát a tárgyhó végén: 


FJ— FM—CK 


ahol 
FJ — a jjelenlegi kölcsönösszeg (maradék), 
FM — a múlt havi maradék kölcsönösszeg. 
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A fentiekből látható, hogy a havi részlet (F) kivételével mind a havi kamatösszeg 
(HK), mind a havi kölcsön-visszafizetés összege (CK) minden hónapban az előző 
havi maradék kölcsönösszegből származik. 

A feladat elején meg kell ismerni a kölcsön adatait, a kölcsön összegét és a kama- 
tot. A program ezeknek az adatoknak a beolvasásával fog kezdődni. Ezután ki kell 
számítani a havi részlet összegét, és rátérhetünk a táblázat adatainak kiszámítására 
és kiírására. Mint láthattuk, a havi változó adatok (HK, CK, FJ) az előző havi mara- 
dék kölcsönösszegből (FM) kiszámíthatók — mindig azonos kifejezések segítségé- 
vel —, ezért ezt a műveletsort csak egyszer kell kódolni a programban, és annyiszor 
végrehajtani, ahányszor erre szükség van (12-szer). A művelet tehát ciklust fog al- 
kotni. 

A havi részlet-, a havi kamat- és a havi visszafizetés-összegeket a havi számítások 
eredményével meg kell növelni, és a havi adatok után ki is kell írni. 

A feladat modulszerkezetét az 57. ábra mutatja. 


A program tervezése 


Tekintsük át az egyes funkciókat részleteiben! Az adatbeolvasás és a havi részlet ki- 
számítása zárt, egyszerű feladat, ezek önálló modulként megmaradhatnak. 

Az (1) modulban az adatbeolvasást ellenőrzéssel kell kiegészíteni. Csak akkor 
szabad elfogadni a begépelt adatokat, ha pozitívak. Negatív adat esetén 


CSAK POZITIV LEHET! 


hibaüzenetet kell kiírni, és meg kell ismételni a beolvasást. 
Alaposabb tervezést igényel azonban a havi adatok kiszámítása. Ez a funkció a 
következő műveleteket foglalja magában: 


— a havi adatok (HK, CK, FJ) kiszámítása, 
— az összegezések elvégzése, 
— az adatok kiírása. 


Ezt a modult tehát tanácsos három modulra tovább bontani (58. ábra). A (3), (4) 
és (5) modult annyiszor kell végrehajtani, ahány hónap van egy évben. Ez a három 
modul együtt egy ciklus magját alkotja. A ciklusváltozó a hónapok száma, a ciklus- 
feltétel pedig a 12. hónap adatainak feldolgozása. Ezután ugyanis a művelet véget 
ér. Ezt a ciklust a FOR, NEXT utasításpárral jól meg lehet valósítani. A ciklusmű- 
veletek számát a H (hónap) változó értéke szabja meg. A (3) modul számításait az 
elemzésnél megismertük. 

A (4) összegezéseit az ún. , gyűjtő" módszerrel végezzük el. Minden összeghez 
kijelölünk egy változót, induló tartalmát nullázzuk (bár ez a BASIC-ben felesleges), 
és minden számítási művelet után a kapott eredményeket hozzáadjuk a megfelelő 


szamítasa 


57. ábra. Az 5. feladat szerkezete 


Havi adatok 
számítása 
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C2) Havi adatok . (6) 
Részlet számítása számítása Összegkiírás 


5 C4) (5) 
Összegezés Kiírás 


változó értékéhez. Ezzel az összegek a ciklus befejezésére készen állnak a megfelelő 
gyűjtőkben. 

Az (5) és (6) modul kiírásait a PRINT utasítással fogjuk megvalósítani. A (6) mo- 
dult csak egyszer kell végrehajtani, és ezután a program befejeződik. 

A kiírás nem tartalmazza a bemeneti adatokat, ezért csak a program elején cél- 
szerű a képernyőt törölni, a táblázat kiírása előtt nem, hogy a bemeneti adatok is 
láthatók legyenek. 

A programban a ciklus vezérléséhez nem célszerű vezérlőmodult alkalmazni, mi- 
vel a ciklust FOR, NEXT utasításpárral kódoljuk. A FOR, NEXT utasításpár önma- 
ga gondoskodik a ciklus vezérléséről. A cikluson kívüli 3 modul szekvenciális végre- 
hajtása szintén megoldható vezérlőmodul nélkül. 


C1) 
Adatbeolvasás 


€3) 
HK, CK, F3 
számítása 


58. ábra. Az 5. feladat programjának terve 


A modulok tervezése 


(1) Adatbeolvasás 
A modul adat típusú. Bemeneti és kimeneti adatai a beolvasott és ellenőrzött F és 
K adatok. 

A modulban kell beolvasni a kölcsönösszeget (F) és a kamatot (K). Mindkét ada- 
tot ellenőrizni kell, hogy pozitívak-e. Negatív vagy 0 bemenet esetén hibaüzenetet 
kell kiadni, és a beolvasást meg kell ismételni (59. ábra). A kamat összegét (K) el 
kell osztani 100-zal, hogy a számításhoz megfelelő értéket kapjunk. Megjegyezzük, 
hogy mindkét adatbeolvasás hátul tesztelő ciklusban megy végbe. 


(2) Részlet számítása 
A modul eljárás típusú. Bemeneti adatai az F és K érték az (1) modulból, kimeneti 
adata a havi részlet összege. 
A modulban a kifejezés egyszerűbb kiszámítása végett a K/12-t egy K1 változó- 
val helyettesítjük a 
K1 — K/12 


értékadás után. Majd egyetlen utasítással kiszámítható az R érték (59. ábra). 
(3) HK, CK, FJ szám 


A modul eljárás típusú. Bemeneti adatai a kölcsön összege (F) és a kamatláb (K) az 
(1) modulból. 
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(1) modul ti jltgbeNése 
KEZDÉS 


F 
beolvasás 


K 
beolvasás 


K1-K/12 


ezet ltek átst ENEZES NR ENNÉKERENENKENÉBSR 1] 


(3) modul 
59. ábra. Az (1) és (2) modul folyamata 
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Ez a ciklus első modulja, tehát a FOR utasítás ide kerül. Előtte azonban ki kell 
írni az oszlopok fejléceit. A modulban előbb a HK értéket számítjuk ki, majd ennek 
alapján a CK-t, végül az FJ-t. 

Az első havi számításoknál az FJ a begépelt F értéke lesz. A továbbiakban 
az eredeti F értékre nem lesz szükségünk, ezért nem követünk el hibát, ha mindig 
az F változó tartalmazza a mindenkori FJ (a maradék kölcsön) összeget, vagyis F-et 
csökkentjük a visszafizetéssel. 

A modul harmadik művelete tehát az F módosítása lesz: 


F — F—CK 


Így a következő számítási lépésnél már ez az új összeg lesz a kiinduló érték (60. 
ábra). 


(4) Összegezés 
A modul eljárás típusú. Bemeneti adatai az R, HK és CK értékek. A modul kimene- 
tét három összeg alkotja. 

A modulban három összegérték gyűjtését kell elvégezni. A részletösszegeket az 
SR, a kamatokat az SK, a visszafizetett összegeket az SC változó tartalmazza 
(60. ábra). 


15) Kiírás 
A modul eljárás típusú. Bemeneti adatai az R, HK, CK és F adatok. A modul ezeket 
az adatokat egyetlen sorba írja ki. 

Ebben a modulban fejeződik be a ciklusmag, ezért a modul végére kerül a ciklust 
záró NEXT utasítás (60. ábra). 


(6) Összegkíiírás 
Hasonló az (5) modulhoz, azzal a különbséggel, hogy először egy üres sort ír (sor- 
emelés) , majd az összegeket írja ki. Ezzel a program befejeződik (60. ábra). 


Kódolás 


A feladat kódjából néhány részletet mutatunk be. Az (1) modulban az F beolvasása 
és ellenőrzése a következő: 

69 REMkAXXKKKXK HDATBEOLY. $rXkX 

79 INPUT"A KOLCSON ÖSSZEGE: ";F 

sg IF F-C-i THEN 199 

g4 Gü TO 139 

id8 REPIix THEN AG xk 

113 PRINT: PRINT"CSAK POZITIY LEHET !" 

ízű Gsa TO 79 

130 REMk IF VEG x£k 


Külön meg kell nézni a (4), (5) és (6) modulokban végbemenő négyoszlopos táblá- 
zat kiírását. 

A Commodore-gépnél a PRINT utasításnak van olyan lehetősége, hogy ha az 
utasítás tárgyában levő adatelemek közé vesszőt teszünk, akkor a gép az egyes adat- 
elemeket egy-egy tíz pozíció szélességű mező elejére írja ki. A Commodore 40 karak- 
ter hosszúságú sora tehát 4 oszlopra bontható, ezért a feladatunk így elvégezhető. 

A fejlécet soronként kell kiíratni, és az oszlopok fejrovatait vesszővel kell elvá- 
lasztani aPRINT utasításban: 


eg9 PRINT" "RESZLET", "KAMAT" , "VISSZA-" , "KOLCSON" 
238 PRINT"OCSSZEG" , "OSSZEG", "FIZ. 0." , "OZSZEG" 


(2) modul 


60. ábra. A (3), (4), (5) és (6) modulok folyamata 
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Ugyanígy kell az adatok kiírását is kódolni: 
4598 PRINT R,.HK,CK,F 


a A HT gépen ugyanez a módszer követhető, mivel a képernyő egy sora 64 
karakterből áll, és a PRINT utasításban az adatelemek közötti vessző az 
adatelemeket a 16 pozíció széles mező elejére írja ki. 


A A PRIMO gép is — a PRINT utasítás adatelemei közötti vessző hatására — 
az adatelemeket a 16 pozíció széles mező elejére írja. A képernyősorba vi- 
szont csak 42 karakter fér el, így még 3 oszlop sem írható ki teljes bizton- 
sággal. Ezért itt más módszert kell alkalmazni. A PRINT utasítással együtt 
használható a 

TAB (argumentum) 


alakú tabuláló függvény. Az argumentum csak pozitív és 42-nél kisebb 
lehet. A TAB függvényt csak a PRINT utasítással együtt lehet használni, 
önállóan nem. Az 


x PRINT TAB (argumentum); A 


utasítás hatására az A értékének kiírása az argumentum értékével egyenlő 
sorszámú pozíción kezdődik. Például, ha a TAB argumentuma 10, akkor az 
A értékének nyomtatása a 10. pozíción kezdődik. 

Ezzel az eljárással tehát tabulálni tudjuk a kiírást, vagyis az adatelemek 
kiírását a megfelelő pozícióra tudjuk állítani. A képernyőt itt is 10 pozíció 
széles mezőkre célszerű felbontani a TAB alkalmazásával. Az első adatelem 
kiírása a képernyő bal szélén kezdődik, ezért csak a második adatelemtől 
kezdve kell a TAB függvényt használni: 


280 PRINT"RESZLET";TAB(10); "KAMAT ";TAB(20) ; "VISSZA-"; TAB(30) "KOLCSON" 
290 PRINT"FOSSZEG";TAB(10) ; "OSSZEG ";TAB(20) ; "FIZ.O."; TAB(30); "OSSZEG" 


e A Sinclair-gépeknél ugyanezt az eljárást kell követnünk, mivel az adatele- 
mek közötti vessző alkalmazásával csak 2 oszlopot lehet írni a 32 helyérték 
hosszúságú képernyősorba. Ezért itt is a TAB függvényt kell alkalmaznunk 
(leírását lásd feljebb a PRIMO-nál), azzal a különbséggel, hogy itt csak 
8 pozíció széles lehet egy oszlop. A Sinclair-gépeken a TAB függvény ar- 
gumentumát nem kell zárójelbe tenni, például: 


PRINT TAB 8 


Ennek figyelembevételével a táblázat fejlécét a következő két utasítással 
lehet kiírni: 


280 PRINT"RESZLET"GTAB 8; "KAMAT";TAB 16; "VISSZA-";TAB 247"KOLCSON" 
290 PRINTTOSSZEG"GTAB 8; "OSSZEG ";TAB 16; "FIZ.O."; TAB 24;"OSSZEG" 


Bár itt nem használjuk, de megjegyezzük, hogy a Commodore esetében az 
x PRINT TAB (n); "szöveg" 


utasítás n szóközt hagy ki a képernyő bal szélétől vagy a legutolsónak kiírt jeltől 
jobbra, és ezután kezdi kiírni a szöveget. 
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Ellenőrző kérdések és feladatok 


1. Alakítsa át az 5. feladat programját úgy, hogy hosszú lejáratú kölcsönök (20, 
25 év) havi részletét lehessen vele kiszámítani. A kiírási képbe vegyen fel egy 
külön oszlopot (az első helyre), amelyben az év és a hónap van (pl. 1985. 6.). 


2. Miért nem egyezik meg az 5. feladatban a visszafizetett részletek összege és a köl- 
csön összege (a kiíráson)? Mi az eredmény akkor, ha az összegeket kerekíti 
(999.99 Ft formában)? 

3. Egy beruházás hozama a következő képlettel számítható ki: 

(14-K)N—1 

J(14K)N 


H — (J—U) 


ahol 

— a hozam, 

— az éves jövedelem a beruházásból, 

az üzemeltetés éves költsége, 

— az érvényes kamatláb törtszám formájában, 
— az évek száma. 


100 000 Ft-os beruházásnál az éves jövedelem (J) 10 000 és 20 000 Ft között 
változhat 1000 forintos lépésekben (10 000, 11 000, 12 000 . . .), az üzemelte- 
tési költség pedig 3000 és 5000 Ft között, 500 forintos lépésekben. A kamat 690 
vagy 896. Milyen éves jövedelem és üzemeltetési költség mellett és melyik kamat- 
lábbal lehet legalább 300 000 Ft hozamot elérni 10 év alatt? 


ZACSCI 
I 


4. Készítsen egy programot, amely a képernyő bal szélétől annyi karakterből álló 
vonalat ír ki, amilyen értéket a program a billentyűzetről beolvasott. Csináljuk 
meg a képernyő jobb szélétől számított vonalhosszra is! 


5. Készítsünk programot, amely a billentyűzetről beolvasott szám (1 nem lehet) 


négyzetét kiírja, majd ennek a négyzetét, és így tovább! Mit tapasztal 1-nél na- 
gyobb és kisebb számoknál? 
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A SZÁMÍTÓGÉPES FELADATOK FELOSZTÁSA 


A számítógéppel megoldható feladatok körében több szempontból is 
jól elkülöníthető csoportot alkotnak az egyedi adatok feldolgozását cél- 
zó feladatok. Erre a feladatcsoportra az jellemző, hogy a feladaton belül 
viszonylag kevés (legfeljebb néhányszor 10) és lényegében egymástól 
független adatot kel! feldolgozni. A hangsúly inkább az utóbbin van, 
ami azt jelenti, hogy a feladat szinte valamennyi adatát külön kell ke- 
zelni és feldolgozni. 

A feladatok másik csoportjába azok tartoznak, amelyekben több, va- 
lamilyen szempontból összetartozó adatot kell feldolgozni. 

Az előző részekben egyedi adatok feldolgozására láttunk példákat, 
itt bemutatjuk az összetartozó adatok feldolgozását. 


AZ ÖSSZETARTOZÓ ADATOK FELDOLGOZÁSA 


Az egyedi adatok és az összetartozó adatok fogalmának pontos megha- 
tározása nehézségekbe ütközik, jobb megértésükhöz három fogalmat is- 
merjünk meg. .Ezek: az egyed, a tulajdonság és az érték. 

Az egyed egy rendszernek olyan eleme, amelyet adatokkal kívánunk 
leírni. Egy vállalatnál egyed lehet egy termék, egy dolgozó, egy anyag- 
féleség stb. A tulajdonság az egyedek jellemzője, amellyel leírhatók. Egy 
termék tulajdonsága pl. az ára, a súlya, a színe stb. Egy dolgozó tulaj- 
donsága a szakmája, az életkora stb. Az érték egy tulajdonság konkrét 
megjelenése. Érték például egy termék számszerűen kifejezett ára, vala- 
milyen mértékegységben meghatározott súlya, egy dolgozó szakmájá- 
nak pontos megnevezése stb. 

Egyedi adatok feldolgozásánál kevés egyed vesz részt a műveletben 
(pl. ellenállás-számítás). Általában a műszaki, tudományos számítások 
tartoznak a feladatoknak ebbe a körébe. Jellemzője ennek a feladat- 
csoportnak, hogy a feldolgozásban kevés számú (1—50) adat vesz részt. 

Ezek az adatok egy, vagy kevés egyed tulajdonságainak az értékei. 
A kevés számú adat jelenlétéből következik, hogy a programban nem 
sok gondot kell fordítani az adatok beadására, ellenőrzésére, azonosítá- 
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sára, módosítására, rendszerezésére stb. Ezek a műveletek együttesen 
alkotják az adatkezelést. Egyedi feladatok esetében az adatkezelés kis 
helyet foglal el a programban, a nagyobb részt a feldolgozás teszi ki. 
Az adatok megőrzése sem merül fel problémaként, mivel ezek a prog- 
ramban változóként egyszerűen és problémamentesen tárolhatók. 

Egészen más szemléletet igényel az összetartozó adaiok feldolgo- 
zása. Ebben a feladatcsoportban sok egyed több-kevesebb tulajdonságá- 
nak értékeit kell feldolgozni. 

Ilyen feladat például egy raktárban levő termékek készletének nyil- 
vántartása. Itt az egyes anyagféleségek az egyedek, és a mennyiségi tu- 
lajdonságaikat leíró értékeket (darabszám, súly stb.) kell feldolgozni. 
Az ilyen feladatokban sok adat szerepel (egyedenként legalább egy), 
és a sok adat kezelésére több energiát kell fordítani. Jelentős munka a 
részt vevő adatok számítógépbe vitele, a bevitel során végrehajtott 
ellenőrzések, az adatok megkülönböztetése (azonosítása). Ezt a ké- 
sőbbiekben alaposabban is szemügyre vesszük. 

Nagy feladatot jelent továbbá az adatok tárolása, visszakeresése, 
törlése, módosítása is. Mindebből következik az is, hogy az összetar- 
tozó adatok kezelése a programra is hatással van, és a programok adat- 
kezeléssel foglalkozó része lényegesen nagyobb, mint amit a feldolgo- 
zási műveletek foglalnak el. Ez az arányeltolódás azt is eredményezheti, 
hogy egy feldolgozási folyamatban olyan programok is vannak, amelyek 
csak adatkezelési lépést (pl. adatbeolvasás) hajtanak végre. 

Az összetartozó adatok feldolgozása során egy fontos kérdés az ada- 
tok tárolása és a tárolt adatok megkülönböztetése. Hogyan tároljuk egy 
5000-féle anyagot tartalmazó raktár 40—50 000 adatát? Hogyan tudjuk 
megmondani, hogy a 40 000 adat közül melyik tartalmazza a festék- 
hígító aktuális mennyiségét? Először az első kérdést válaszoljuk meg. 
Ennyi adatot nem lehet az eddig megismert módon, azaz a programban 
tárolni. Nincs helyünk ilyen hosszú programok tárolására, de ennél 
prózaibb ok, hogy nincs annyi változónév, amit ennyi adatnak tudnánk 
adni. A programban néhány száz adatnál többet nem tudunk tárolni. 

Nagy mennyiségű adatot úgy kell tárolni, hogy bármelyiket biztosan 
és könnyen megtaláljuk. Ez pedig csak úgy érhető el, ha az adatokat 
rendszerezve tároljuk. Ha például egy raktár anyagainak készletét kell 
nyilvántartanunk, akkor az egyedekről (anyagféleségek) legalább két 
tulajdonság értékét kell tárolni: az anyag azonosítására szolgáló számot 
(ez a , név") és a készlet tulajdonságértékét: a mennyiséget. Ezeket az 
adatokat valamilyen szempontból rendszerezni kell. Általában célszerű 
egy egyed tulajdonságainak értékeit együtt tárolni, ebből következik, 
hogy az anyagok azonosítóját és készletét együtt kell tárolni. Ezzel cso- 
portokat hozunk létre, és tudjuk, hogy egy csoporton belül egy egyed 
adatai találhatók. 

Tovább segítjük az adatok azonosítását, ha meghatározzuk, hogy a 
csoporton belül milyen sorrendben következnek az egyes adatok. Pél- 
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dánkban a sorrend lehet: azonosító — mennyiség. Így az adatcsoport el- 
ső adata egy azonosító, az adathalmaz második eleme egy készletmeny- 
nyiség. Ez ismétlődik minden egyed adatcsoportján belül. Ábrázolása 
a következő: 


A1, M1 
A2, M2 


A3, M3 


Látható, hogy egy sorban egy egyed tulajdonságértékei, egy oszlopban 
pedig azonos tulajdonságok értékei szerepelnek. Összetartozó adatok 
tárolására ez a fajta rendszerezés terjedt el. 

Adatok fizikai tárolására két lehetőség adódik: 


— programon belül, 
— programtól függetlenül külső tárolón. 


Az utóbbival a 13. és 14. részben foglalkozunk, itt a programon belüli 
adattárolást vizsgáljuk meg. 

A programon belüli tárolási mód a tömb. A tömb egyedenként több, 
elvileg kötetlen számú tulajdonságértéket tartalmaz. A tömbben mindig 
van lehetőség az egyedi azonosító tárolására, ha szükséges. Tömbben 
lehet tárolni pl. egy méréssorozat adatait, ha mérésenként több jellemző 
értéket kell mérni. Megállapodás szerint egy egyed adatai egy sorba, az 
azonos tulajdonságra vonatkozó adatok pedig egy oszlopba kerülnek. 


t,1722.3  t,.-20.8  t,-—19.2 
t1720.8 t,/2—18.2  t.5—17.6 
t917-15.6  t92—14.1  t3537—13.1 


Az együvé tartozást az indexek is kifejezik. A kéttagú index első tagja 
az egyedre, a második a tulajdonságra utal. Ha az egyedek száma m, a 
tulajdonságok száma n, akkor m sorból és n oszlopból álló mXn méretű 
tömb szükséges az adatok tárolására. A BASIC általában több dimen- 
ziós tömböket tud kezelni. 

A tömb egy konkrét elemére az indexeivel lehet hivatkozni. Annyi 
indexet kell megadni, ahány dimenziós a tömb. Egy kétdimenziós tömb 
elemére például az alábbiak szerint hivatkozunk: 


t2—17.6 


A vektor egy speciális tömb, amelynek csak egy dimenziója van. A vek- 
tor elemei egyedenként egyetlen tulajdonság értékeit (az adatokat) tá- 
rolják. Ez lehet vagy az egyed azonosítója, vagy ha ez nem fontos, ak- 
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kor csak valamelyik tulajdonságának az értéke. Például olyan mérések- 
nél, amikor mérésenként csupán egyetlen jellemzőt kell mérni, az ada- 
tokat tárolhatjuk egy vektorban. Ekkor a mérések azonosítóját külön 
nem lehet tárolni (mert nincs rá hely), de a tárolás sorrendje erre is 
utalhat. Tegyük fel, hogy a mérési eredmények a következők: 


t , —22.3 
t, —20.8 
t5—15.6 
t,7 9.2 
t5—12.7 
ta —19.8 


Ha t indexei a mérés sorszámára utalnak, akkor az adatokat a megadott 
sorrendben tárolva az azonosítókat is közvetve tároljuk. A vektorban 
csak az értékek szerepelnek: 


A vektor valamelyik adott elemére az elem indexével hivatkozunk: 
t, —12.7 
Az összetartozó adatok feldolgozását jellemzi, hogy 


— a program ciklust tartalmaz az azonos szempontú feldolgozások el- 
végzésére, 

— sok az adatkezelés, 

— a számítások viszonylag egyszerűek. 


A sok összetartozó adatot tartalmazó problémánál az adatok szervezése, 
az adatállomány definiálása, értékének meghatározása külön tervezési 
lépést igényel. Először azt kell eldönteni, hogy milyen egyedek vannak, 
és ezek milyen tulajdonságai vesznek részt a feldolgozásban. Egy prog- 
ramban több tömb is szerepelhet. Mindegyik méretét, felépítését pon- 
tosan meg kell tervezni. 

A tömbelemek ugyanazokkal a jelekkel jelölhetők, mint a változók. 
Az eltérés az, hogy a tömbnév után a zárójelbe tett számértékkel mutat- 
juk, hogy nem egyszerű változóról van szó. A zárójelbe írt szám az illető 
elem indexe. 


172 


Egyedi változó Tömbváltozó 


A8 A8 (40) az A8 vektor 40. eleme 
C C(200,50)  aC tömb 200. sorának 50. eleme 
K2$ K2$ (2,20) a K2$ tömb 2. sorának 20. eleme 


Látható, hogy egy tömbön belül az elemek (változók) neve ugyanaz 
(tömbnév), és az indexszel azonosíthatók. A tömbök nevét ugyanolyan 
szabályok szerint lehet képezni, mint a változókét. A névvel a tömbben 
tárolt adatok típusára is utalhatunk. A tömbnév után írt $ jel azt jelenti, 
hogy a tömbben szöveges változókat, a 96 jel pedig azt, hogy a tömbben 
egész számokat tárolunk. Például: 


A199 (5,7) 
K$ (22,1) 
e A Sinclair-gépeknél a tömbnév egyetlen betű lehet. 


A program elején — vagy legalábbis a tömb használata előtt — a DIM 
utasítással kell helyet foglalni a tömbnek: 


x DIM V (egész szám1, egész szám2, egész szám3, . . .) 


ahol 
DIM — a helyfoglalás kulcsszava, 
vV — a tömbnév, 
egész szánok — a tömb mérete az egyes dimenziókban. 


Ennek hatására a gép minden dimenzióban az egész számok által meg- 
határozottnál eggyel nagyobb méretű V tömb számára foglal helyet, 
amelynek elemei közé tartozik a 0 indexű is. Például: 


20DIMT (15,3) 


Ebben az esetben a sorok indexe 0-tól 15-ig, az oszlopoké 0O-tól 3-ig van 
megengedve. 

Egy DIM utasításban több tömböt definiálhatunk. Ekkor a tömbök 
nevét vesszővel kell elválasztani. 

A tömb elemeire a vektor, illetve a tömb jelével és az elem sorszámá- 
val, illetve az indexeivel (zárójelben) hivatkozhatunk, amelyek nem le- 
hetnek nagyobbak, mint a DIM utasításban meghatározott megfelelő 
méretek. Például: 

T(3,2) 


6. feladat 


Legfeljebb 100, de esetenként változó számú mérési sorozat eredményeit (hőmér- 
séklet) kell kiértékelni. Meg kell határozni a mérések átlagát és szórását. Az eredmé- 
nyeket a következő formában kell kiírni: 
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A MERESEK EREDMENYEI 


A MERESEK SZAMA: X 
AZ ATLAGOS HOMERSEKLET: X CELSIUS FOK 
AZ ERTEKEK SZORASA:Xx.Xx 


A feladat elemzése 


A mérést — a probléma leírása alapján — nem a számítógép vezérli, ezért a mért ér- 
tékeket a mérést végző olvassa le és adja a számítógépnek akár közvetlenül minden 
mérés végén, akár az adatok összegyűjtésével a méréssorozat befejezésekor. A mé- 
rési sorozat legfeljebb 100 mérésből állhat. Hogy a mérést végző ezt ne lépje túl, a 
mérések számát előre be kell kérni. Ezek alapján az adatbevitel programozható. 

Az adatbevitel után az átlagot és a szórást a jól ismert kifejezések segítségével 


lehet meghatározni : m 
2 t; 
i-1 
Az m 
ahol 
A — átlag, 
t; — az i-edik mérés értéke, 


m — a mérések száma. 


D — a szórás. 


A program adatait egy vektorban lehet tárolni. Mivel a vektor hőmérsékletadatokat 
tartalmaz, legyen a jele T. A vektor elemeit a felhasználó gépeli be. Minden esetben 
csak annyi adatot kell beírni, ahány mérést végez a felhasználó. Az adatokból előbb 
átlagot, majd szórást kell számítani. 

A számítógépes programban szükség van egy adatrögzítő modulra, amely rögzíti 
a bemeneti adatokat. Ezekből kell átlagot, majd szórást számítani. Az első modult 
kivéve mindegyik modulhoz tartozik kiírás is. Megoldásunkat úgy készítjük el, hogy 
a modulfunkciókhoz a kiírást is hozzávesszük (61. ábra). 


A program tervezése 


A program első modulja végzi az adatok bevitelét. Mérésenként legfeljebb 100 adat 
lehetséges. A felhasználó minden konkrét esetben megtervezi, hogy hány mérést 
végez, ezért az adatbevitel elején tudni lehet, hány adatot kell a modulnak beolvas- 
nia a terminálról. Ezt a felhasználó közli. Az adatbevitelt ciklikusan kell elvégezni, 
mivel a feldolgozandó adatok beírása is hasonló. A modul további bontása felesleges. 

A következő modul funkciója az átlagszámítás. Ehhez a mért értékeket össze- 
gezni kell, majd el kell osztani a mérések számával, a végén az eredményt ki kell ír- 
ni. Tanácsos a modult két modulra bontani: az egyik végzi a feldolgozást, a másik 
pedig a kiírást. 

A szórásszámítás a következő funkció, amely felhasználja az átlagszámítás ered- 
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Adatbevitel Átlagszámítás 


61. ábra. A 9. feladat programjának modulszerkezete 


ményét. Ezt a modult is célszerű kettévágni: az egyik modul végzi a számítást, a má- 
sik pedig a kiírást. A feladat finomított modulszerkezetét a 62. ábra mutatja. 

A feladat programját vezérlőmodul nélkül készítjük el az egyszerű programszer- 
kezet miatt. 


A modulok tervezése 


(1) Az adatbevitel 

A modul adat típusú, mivel fő funkciója a mérési adatok beolvasása. Bemeneti ada- 
tai a mérési adatok, amelyeket a felhasználó ad be. Kimenete a számítógép tárjában 
levő adathalmaz, valamint a mérések száma. 

Ebben a modulban kap helyet a programnév, majd le kell kötni a mérési adato- 
kat tároló 100 elemű, T nevű vektor helyét a megismert DIM T(100) utasítással. 
Ezután kezdődhet a modul , érdemi" feladatának ellátása, az adatok beolvasása. 
Első lépésként az adott mérési folyamat méréseinek számát kell bekérni: 


A MERESEK SZAMA: 


erre a felhasználó begépeli az M változó értékét. 

A mérési adatok beolvasásakor minden egyes adat begépelése előtt tanácsos ki- 
írni, hogy hányadik adat következik. Ezzel segíthetjük a felhasználót, hogy mindig 
helyes adatot írjon be. Az adatbevitelt ciklusban kell végezni, hiszen hasonló műve- 
letet kell M-szer ismételni. 

A ciklusmagban két művelet kap helyet: a következő adat sorszáma és az adat- 
beolvasás. A ciklust addig kell folytatni, amíg a beolvasott adatok száma eléri M-et. 
Ekkor a ciklusból ki kell lépni, és az adatbeolvasás befejeződött. 


(1) (c3) 
Adatbevitel Szórás 


€3:13 C 3.2) 
Szórásszámítá Szóráskiírás 
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C 2.1) 
Átlagszámítás 


62. ábra. A 9. feladat programterve 


, (2.2) 
Atlagkiírás 


I.adat következik 
kiírás 
T(I) 

beolvasás 


63. ábra. Az adatbeolvasási ciklus szervezése 


Az adatbeolvasási ciklusban fontos követelmény, hogy a beolvasott adatok a 
megfelelő indexű vektorelembe kerüljenek, ami azt jelenti, hogy az első beolvasott 
adat a T(1) értéke, a második adat pedig a T(2) értéke stb. legyen. Ez elérhető, ha 
az indexek értékét minden beolvasás előtt eggyel növeljük. Ez úgy oldható meg, 
hogy az indexet ! változónak tekintjük, és értékét minden adatbevitel előtt eggyel 
növeljük (63. ábra). 


Így biztosítjuk, hogy az adott sorszámú mérési adat az ugyanolyan sorszámú vek- 
torelembe kerüljön. A ciklust egyszerűen meg lehet szervezni a FOR, NEXT utasí- 
tásokból, ciklusváltozóként az I-t vezetjük be, és ez 1-től M-ig minden egész értéken 
végigfut a feldolgozáskor. Hogy mindig a ciklusváltozónak megfelelő vektorelemet 
dolgozza fel a program, a vektorelem indexét az I jelöli: 


TÁ). 
Ezzel a modul algoritmusát meghatároztuk (64. ábra). 


(2.1) Átlagszámítás 
A modul típusa: eljárás. Bemeneti adatai a T(1) mérési adatok és a mérések száma az 
(1) modulból. Kimeneti adata a mérési adatok átlaga. 

Az átlagot a már ismert képlet alapján kell kiszámítani. Először a T(1) adatok ér- 
tékeit kell összegezni. Ezt az összeget az S változó tartalmazza. Az összegezést cik- 
lusban kell végrehajtani. A ciklusmagban az 


S-ZS-TT(!) 


: összegezést kell elvégezni. Ekkor is FOR, NEXT típusú feldolgozó ciklust alkalma- 
zunk, amely biztosítja, hogy a program mindig a soron következő T(1) értéket adja 
hozzá az S-hez. A ciklus előkészítő műveletében az S gyűjtőt nullázzuk. Az össze- 
get M-mel el kell osztani, és megkapjuk az átlagot (64. ábra). 
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(3.1) modul 
64. ábra. Az (1), (2.1) és (2.2) modul folyamata 
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(2.2) Átlagkiírás 
A modul eljárás típusú. Bemeneti adata az A átlagérték, amely egyúttal a kimenete 
is. A modul egyetlen művelete az átlag kiírása a specifikáció szerint (64. ábra) 


(3.1) Szórásszámítás 

A modul eljárás típusú. Bemeneti adatai a mérési adatok és az adatok száma az (1) 
modulból, valamint a szórás számításához szükséges A átlagérték a (2.1) modulból. 
A modul kimenete a szórás (D2). 


Először az 
[A—T(DT 


különbségek négyzetét kell képezni a K változóban: 
K — K-H[A—T(1) JÉ 


Ezt a műveletet is egy M-szer végrehajtott ciklusban célszerű elvégezni FOR, NEXT 
szervezéssel. A kapott eredményt el kell osztani M-mel, és négyzetgyökvonás után 


megkapjuk a szórás értékét: 
D2—-4VK/M 


A modul műveleteit a 65. ábra mutatja. 


(2.2) modul 


bézs ászt ző öz szó mássz EY E e áÉETESSÍőz Sláez S ő eáeesőső 


65. ábra. A (3.1) és (3.2) modul folyamata 
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(3.2) Szóráskiírás 
A modul eljárás típusú. Bemeneti adata a D2 jelű szórásnégyzetet tartalmazó vál- 
tozó a (3.1) modulból, amely egyúttal a modul kimeneti adata is (65. ábra). 


A program kódolása 


A program kódolásában az egyedüli újdonság a vektorméret meghatározása: 
70 DIM T(100). 


a többi művelet az eddig bemutatott kódolási szerkezetek felhasználásával meg- 
oldható. 


10. CIKLIKUS TEVÉKENYSÉGEK 


Adatok rendezése tömbben, egymásba ágyazott ciklusok. 
A 7. feladat megoldása 


Ebben a részben egy újabb feladatot oldunk meg a ciklikus tevékenysé- 
gek gyakorlására és a tömbök alkalmazására. 


7. feladat 


Egy vállalat pénztára nem bérfizetési napokon a dolgozóknak nem bérjellegű ki- 
fizetéseket teljesít. Ezek a vállalat jellegéből fakadóan főleg helyi (taxi) és távolsági 
közlekedési költségek (kiküldetések útiköltsége, napidíj, szállásköltségek), valamint 
mások. A költségek fő jellegzetessége, hogy valamilyen munkaszámra rá kell őket 
terhelni. Naponta legfeljebb 100 ilyen kifizetés várható. 

A könyvelés megkönnyítésére minden nap végén egy kimutatást kell készíteni, 
amelyben az azonos munkaszámra terhelhető költségek egy csoportban vannak. 
Igy a könyvelőnek egy munkaszám könyvelési kartonját csak egyszer kell kézbe 
vennie. További segítséget jelent, ha a kimutatáson a munkaszámonként csoporto- 
sított bizonylati adatok sorrendje ugyanolyan, mint a könyvelési kartonoké. Ez 
utóbbiak növekedő sorrendben vannak, tehát a munkaszámoknak a kimutatáson is 
növekvő sorrendben kell szerepelniük. A kimutatás elején legyenek a legalacsonyabb 
munkaszámhoz tartozó kifizetési bizonylati adatok, utána a következő munkaszám- 
hoz tartozók, és így tovább. 

Mi legyen még a kimutatáson? Mivel könyvelési célra kell, a kifizetett összegnek 
feltétlenül szerepelnie kell, valamint a későbbi ellenőrizhetőség végett az adatok 
származási helyét — a bizonylat azonosítóját, azaz a bizonylat sorszámát — is fel 
kell tüntetni. Természetesen nem maradhat el a kifizetés kelte sem. Mivel a kimuta- 
tás naponta készül, elég a kimutatásra egyszer felírni az aznapi dátumot. A munka- 
számok négyjegyű számok, a kifizetések nem haladják meg a tízezer forintot, és a 
bizonylatsorszám legfeljebb 8 jegyből áll. 

A kimutatást a kifizetésekről sornyomtatóval kell elkészíteni a következő for- 
mában: 


NAPI KIFIZETESEK 


KELT 1985. EV 2. HO 23. NAP 


MUNKA- KIFIZETETT BIZ. 
SZAM OSSZEG SORSZ. 
9999 9999.99 99999999 
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(A 9-es számjegyek azt jelölik, hogy helyükre számjegyeket kell írni, és legfeljebb 
annyi helyértéken, ahány 9-es ott van.) 


A feladat elemzése 


A feladat értelmében egy vállalati pénztár napi kifizetéseiről kell naponta munka- 
számonként, a munkaszámok emelkedő sorrendjében kimutatást készíteni. 
A kimutatás elkészítéséhez kifizetésenként az alábbi adatok szükségesek: 


— a terhelhető munkaszám, 
— a kifizetett összeg, 
— a bizonylat sorszáma. 


A munkaszámot tehát mindig rá kell írni a bizonylatra. A kifizetett összeg természe- 
tesen rajta van a bizonylaton, hiszen éppen az a célja. Sorszáma is minden bizony- 
latnak van. Így a kimutatáshoz szükséges adatok biztosíthatók. 

A nap végén a bizonylati adatokat a munkaszámok növekvő sorrendjében kell 
összegyűjteni és kiírni. A nap folyamán azonban a kifizetések nem a munkaszámok 
emelkedő sorrendjében történnek, hanem véletlenszerűen. A feladat egyik része 
ezért az, hogy a bizonylatok adatait a nap végén a munkaszámok szerint növekvő 
sorrendbe kell rendezni. Ahhoz, hogy ezt meg lehessen tenni, a bizonylatok adatait 
tárolni, és a nap végén az adatokat rendezni kell. A rendezett adatokat pedig ki 
kell írni. 

A feladat számítógépes megoldásához az szükséges, hogy a pénztáros a kifizeté- 
sek alkalmával ezek három adatát (munkaszám, összeg, bizonylatszám) beírja a szá- 
mítógépbe, és a nap végéig megőrizze a gépen. Ekkor a kifizetésekhez tartozó ada- 
tokat munkaszámok szerint növekvő sorrendben össze kell rendezni, és ki kell írni 
egy kimutatásra. A kimutatásra az aznapi dátumot is fel kell írni, ezért a kiírás előtt 
valamikor ezt is be kell gépelni. A feladat elvileg megoldható, hiszen ezek a műve- 
letek számítógéppel elvégezhetők. 

Egy dolgot kell még megvizsgálni. Az aznapi bizonylati adatokat egész nap tá- 
rolni kell. Megoldható ez? Akkor igen, ha az adatok mennyisége nem lépi túl a gép 
adattárolási képességét. Esetünkben maximum 3X100—300 adatot kell tárolni. 
Egy numerikus adat tárolásához géptől függően 4—12 bájt szükséges. Ezek szerint 
legfeljebb 3600 (3,6 kbájt) szükséges az adatok tárolásához. Nem szabad elfelejteni, 
hogy a feladatot megoldó program is helyet foglal el. Azt azonban előre nem tudjuk 
megmondani, hogy mekkorát. Mégis azt mondhatjuk, hogy amelyik gépnek a tár- 
kapacitása 8 kilobájt vagy e feletti, azzal a feladatot nagy valószínűséggel meg lehet 
oldani. 

A feladat megoldásához nyomtatóra is szükség van, hogy a kimutatást el lehessen 
készíteni. A feladat tehát számítógépeinkkel megoldható. 

Nézzük meg, milyen fontosabb részfeladatokat kell elvégezni a feladat megoldá- 
sához! A napi dátumot a nap kezdetén érdemes beolvasni. Egy részfeladat tehát a 
dátum beolvasása. Ezután következik a bizonylatonkénti három adat beolvasása, 
hogy a gép tárolni tudja az adatokat. A nap végén az adatokat sorrendbe kell szedni 
és ki kell írni. 

Egy adatbeolvasás után így két dolog következhet: 


— újabb adatbeolvasás, 
— rendezés, kiírás. 


Ezt a kiválasztást (döntés) a pénztárosnak kell megtennie. A beolvasások után ezért 
mindig ki kell írni egy menüt, hogy a pénztáros választhasson. A nap kezdetén, a 
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Dátum- 
beolvasás 


Kifizetési 
adatok 


66. ábra. A 7. feladat szerkezete 


dátum beolvasása után is ki kell írni ezt a menüt a képernyőre, hogy a műveletek 

egységesek legyenek (a nap kezdetén elég lenne rögtön az adatbevitelre rátérni). 
Egy másik részfeladat a bemutatott menü kiírása. A menüből két további rész- 

feladatot lehet hívni: az adatbeolvasást és a kimutatás készítését (66. ábra). 


A program tervezése 


Először vizsgáljuk meg, hogy lehet-e tovább bontani a részfeladatokat! 

A dátum beolvasása egyszerű feladat, nem érdemes tovább bontani. A kifizetési 
adatok beolvasása három adat beolvasásából áll minden további művelet nélkül, 
ezért ez is lehet egy modul. A kimutatáskészítés két további feladatra bontható: 
először sorrendbe kell rendezni az adatokat, majd a rendezett adatokat ki kell írni. 
A kimutatás tehát két modulból fog állni: 


— rendezés, 
— kiírás. 


A feladat modulszerkezetéhez tartozik a program vezérlési módjának meghatározása 
is. Ebben a feladatban a bemutatott programtervezési módszerünk szerint járunk el. 

A dátumbeolvasás és a menükiírás műveleteit egy vezérlőmodul irányítja, ez lesz 
a feladatvezérlő modul (67. ábra). A menükiíró modul a kifizetési adatok beolvasá- 
sát és a kimutatáskészítő modult fogja irányítani. Ez utóbbi maga is vezérlőmodul, 
amely előbb a rendezés, majd a kiírás végrehajtásáról gondoskodik. 

Ezzel a feladat modulszerkezete kialakult (67. ábra). A feladat egy programmal 
megoldható! Az (1) modul kivételével valamennyi modult szubrutinként fogjuk 
megvalósítani. Külön ki kell térni a feladatban tárolandó adatok tárolási módjára. 
A feladat megfogalmazásából nyilvánvaló, hogy a legfeljebb 100 kifizetési bizony- 
lat munkaszám, összeg, bizonylatszám adatai összetartozó adatok. Az egyed itt a ki- 
fizetés, és három tulajdonságának értékeit kell megőrizni. A tulajdonságok: 


— terhelhető munkaszám, 
— kifizetett összeg, 
— bizonylatszám. 


Az adatok viszonylag alacsony száma miatt a programon belüli adattárolás meg- 
oldható. Az adatbeolvasás — mint látni fogjuk — a rendezés és a kiírás ciklus alkal- 
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(1) 
Feladatvezérlés 


(2) 
Dátumbeolvasás 


C€5) 
Kimutatásvezérlés 
(6) (7) 

Rendezés Kiírás 


mazásával elvégezhető, ezért az adatokat tömbben kell tárolni. Legyen a tömb 
neve K. 

A K tömbön belül egy sorban egy egyed adatai helyezkednek el. Egy egyedről 
három adatot kell tárolni, és mondjuk azt, hogy munkaszám, kifizetett összeg, 
bizonylatszám sorrendben. 

Ebből következően az adattárolásra 100 soros és 3 oszlopos tömböt kell felven- 
ni. A tömb 1. sorában lesznek az 1. bizonylat, rnásodik sorában a 2. bizonylat — és 
így tovább — adatai. 

Ha 100-nál kevesebb kifizetés van, akkor nem célszerű a teljes tömböt kezelni a 
rendezés és a kiírás során, csak annyit, amennyi adat van. Ezért vegyünk fel egy N 
változót, amely a kifizetések számát tartalmazza. 


(4) 
kifizetési adatok 


67. ábra. A 7. feladat modulszerkezete 


A modulok tervezése 


(1) Feladatvezérlő 

A modul vezérlő típusú. Bemeneti adata nincs. Kimenete a (2) és a (3) modul hívása. 
A program első moduljában kell definiálni a felhasznált tömböt, majd két szub- 

rutinhívással végre kell hajtani a (2) és a (3) modult. Ezután a program befejező- 

dik (68. ábra). 


(2) Dátumbeolvasás 

A modul eljárás típusú. Bemenete az aznapi dátum, és ez a modul kimenete is. 
A modulban be kell olvasni az évszámot, a hónapsorszámot és a nap számát 

(68. ábra). 
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(1) modul modul 


KEZDES 


(2) modul 


hívása 


(3) modul 


hívása 


Napsorszám- 
beolvasás 
NA 


68. ábra. Az (1) és (2) modulok folyamata 


(3) Menü 
A modul vezérlést lát el. Bemenete a kiválasztott műveletnek megfelelő adat. A mo- 
dul kimenete vagy a (4), vagy az (5) modul hívása. 

A modul kezdetén törölni kell a képernyőt, majd ki kell írni a menüt, és be kell 
olvasni a döntésnek megfelelő adatot (D). Ezután D értékének megfelelően kell a 
két modul közül valamelyiket hívni. Ha 


D-—-1, akkor a kifizetési adatokat kell beolvasni, 
D7-2, akkor a kimutatást kell hívni. 


Az utóbbi esetben a modul befejeződik. Egyébként újra ki kell írni a menüt az 
újabb döntéshez (69. ábra). 
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Képernyő-— 
törlés 
D . 
beolvasás 


4) modul 
hívása 


5) modul 
hívása 


nem 


igen 
Modul- 
befejezés 


(4) Kifizetési adatok 
A modul adat típusú. Bemenete a kifizetés adatai: a munkaszám, a kifizetett ösz- 
szeg és a bizonylatszám, amelyeket a billentyűzetről kell beolvasni, és ezek a mo- 
dul kimeneti adatai is. 

A munkaszám mindig egy ! sornak az 1., a kifizetett összeg a 2., a bizonylatszám 
a 3. eleme. Jelölésben: 


69. ábra. A (3) modul folyamata 


munkaszám: K(I,1) 
kifizetett összeg: K(1,2) 
bizonylatszám: K(I,3) 


A modulban előbb törölni kell a képernyőt, majd a munkaszám, a kifizetett összeg 
és a bizonylat sorszámát kell beolvasni. 

A beolvasott adatokat a K tömbben kell tárolni. Hogy a beolvasott adatok ne 
vesszenek el, minden adathármast a tömb következő üres sorában kell elhelyezni. 
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Ehhez fel kell venni egy változót (N), amelynek értéke biztosítja, hogy a begépelt 
adatok a következő üres sorba kerüljenek, és minden beolvasás után gondoskodni 
kell a növeléséről (felkészítés a következő beolvasásra). 
Az első adat beolvasásakor 
N—1 


legyen, majd minden újabb beolvasáskor az N-t eggyel meg kell növelni, hogy a kö- 
vetkező adatok már a következő tömbsorba kerüljenek. A növelést célszerű a modul 
elejére tenni, mert így az index a beolvasott adatok sorszámát jelöli. 
A modul első hívásakor 
N-—0O 


legyen (mert az N növelés után 1 lesz). A BASIC nyelvben ez automatikusan telje- 
sül, tehát külön műveletet nem igényel (70. ábra). 


(5) Kimutatásvezérlő 


A modul vezérlő modul. Bemeneti adata nincs. Kimenete a (6) és a (7) modul hívása. 
A modul előbb a (6), majd a (7) modult hívja (70. ábra). 
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70. ábra. A (4) és (5) modul 
( URRBÁZÉZSRT NE SAN elte TEVET ÉTRTÁSNNG ÉGNE NTETSL ATÉN ete se NETENTTYEN NNNNA GT J folyamata 
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(6) Rendezés 
A modul eljárást valósít meg. Bemenete az N kifizetésszám és a K tömb elemei. Ki- 
menete a K tömb rendezett változata. 

A rendezést csak az első N sorra kell elvégezni. Vizsgáljuk meg, hogy a kifizeté- 

sek adatai milyen módszerrel rendezhetők! A rendezés szempontja a munkaszám. 
A sorba rendezést többféleképpen lehet végrehajtani. Ezek közül mutatunk be egy 
megoldást. A megoldás lényege a páronkénti vizsgálat és csere. Példaként tekintsük 
a 71. ábra bal oldali oszlopának két felső elemét. Tegyük fel, hogy a cél az oszlop 
(vektor) elemeinek növekvő sorrendű sorba rendezése. 
Ha a két elem helyes sorrendben van (növekvő), akkor nem kell semmit sem ten- 
ni. Térjünk most át a 2. és 3. elemre (2. oszlop)! Ez a két elem nincs sorban, ezért 
fel kell cserélni őket (az eredmény a 3. oszlopban látható). Majd a 3. és 4. elemre 
térünk át. Azt látjuk, hogy itt is cserélni kell. A műveletet tovább folytatjuk, amíg 
el nem kezdjük elölről. Megint elkezdjük a szomszédos elemek összehasonlítását és 
szükség szerinti cseréjét. 

A sorba rendezés akkor ér véget, ha a tömbön úgy mentünk végig, hogy nem kel- 
lett elemet cserélni. Hogy tudjuk, ez mikor következik be, fel kell venni pl. egy F 
változót, amelynek értéke megmondja, kellett-e elemet cserélni. Minden vizsgálat- 
sorozat előtt adjunk F-nek nulla értéket. Ha a vizsgálatsorozatban nem kell cserét 
végrehajtani, akkor 

E sz 


o 


marad. Ha viszont egyetlen cserét is el kell végezni, akkor F értéke 1 legyen. Ez az 
1 mutatja meg, hogy a sorba rendezés még nem ért véget. 

Könnyen belátható, hogy a vizsgálatsorozat (páronkénti összehasonlítás és szük- 
ség szerint csere a tömb elejétől a végéig) ciklikus művelet. Ugyanis minden vizsgá- 
latnál az I-edik sorszámú elemet hasonlítjuk össze az 1--1-edikkel, jelen esetben a 
munkaszámot: 

K(I,1) S K(I34-1,1) 


Az első esetben 1—1, ezért az 1. és a 2. munkaszámot kell! összehasonlítani. Utána 
a 2. és 3. elemet kell vizsgálni, tehát I értékét 1-gyel növelni kell. Ezt folytatjuk 
egészen 

1 — N—1-ig. 


A műveletet 1—1-től kezdve 1—-N—1-ig kell végrehajtani úgy, hogy az Il növekménye 
1 lesz. Ez a ciklus a FOR, NEXT utasításpárral oldható meg legegyszerűbben. 


1 728 3 
2 20.4 20.4 478 


6. 18.7 18.7 187 71. ábra. Példa a sorba rendezésre 


Nézzük meg, hogy két szomszédos elem vizsgálatát hogyan kell elvégezni! Ha 


K(I,1) S K(I--1,1) 
fennáll, akkor át kell térni a következő elempár vizsgálatára, vagyis az I-t eggyel 
meg kell növelni, és így kell a vizsgálatot megismételni. Ha a feltétel nem áll fenn, 
akkor végre kell hajtani az elemcserét. Ezt csak két lépésben lehet elvégezni, mert 
két értékadást kell végrehajtani: 


K(I,1) — K(I--1,1) 
K(I--1,1) — K(I,1) 


Ha az első lépésben a K(1,1) felveszi a K(I4-1,1) értékét, akkor a K(I,1) eredeti érté- 
ke elvész, és a második lépésben már nem történne semmi. Ezért mielőtt az első 
lépést végrehajtjuk, a K(I,1) értékét valahol meg kell őrizni. Legyen az SM változó : 


SM — K(I,1) 
Ha most végezzük el az első lépést: 
K(I,1) — K(I--1,1) 


akkor a K(I,1) értéke már nem vész el. A második lépésben a K(I--1,1) értékét az 


SM-mel kell egyenlővé tenni: 
K(14-1,1) — SM 


Ezt a cserét nemcsak a munkaszámoknál kell elvégezni, hanem a munkaszámokhoz 
tartozó másik két adatnál is (72. ábra). 
Itt is hasonlóan kell eljárni. A kifizetett összegeknél az SF, a bizonylatszámnál az 
SB változót használjuk fel: 

SF — K(I,2) 

K(1,2) — K(I4-1,2) 

K(14-1,2) —SF 
illetve: 

SB — K(I,3) 

K(1,3) — K(I-4-1,3) 

K(14-1,3) — SB 


Ezzel a cserét végrehajtottuk. Ez egyben a ciklusművelet is, vagyis ezt kell az 1—1 


Vizsgálat - 
sorozat 


KCI,1) KCI,2) KC(I,3) 
K(I-t411) K(I-41,2) K (It 13) 
73. ábra. A vizsgálatsorozatot 
72. ábra. A kifizetési adatok cseréje tartalmazó ciklus 
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indextől N—1-szer végrehajtani. Ha cserét hajtunk végre, akkor az F—1 értékadást 
is el kell végezni. 

A vizsgálatot tartalmazó ciklust addig kell ismételni, amíg minden elem a helyén 
nincs. Ilyenkor a vizsgálatsorozat végén 


F-0 


marad, és ez jelzi, hogy az adatok sorba rendezése megtörtént. 

Észrevehetjük, hogy maga a vizsgálatsorozat is egy cikluson belül van. Ennek a 
ciklusnak a ciklusművelete egy egész vizsgálatsorozat. Ezt addig kell ismételni, 
amíg az 

F-0O 
feltétel nem áll fenn. Ez tehát egy hátul tesztelő ciklus lesz (73. ábra). 
A vizsgálatsorozatot ismétlő cikluson belül van az elemcserék ciklusa. Ezért ez a két 
ciklus egymásba ágyazott ciklust alkot. Ezek után a modul teljes folyamatát meg- 
terveztük (74. ábra). ? 


(7) Kiírás 
A modul eljárás típusú. Bemeneti adatai a K tömb sorba rendezett értékei, kimene- 
tét is ezek az adatok képezik. 

A modulban ki kell nyomtatni a K tömb első N sorának adatait a specifikáció 
szerinti formában. Először a fejlécet (dátum, cím és az oszlopok fejrovata), utána a 
K tömb rendezett elemeit kell kinyomtatni. Egy sorba három adatot kell kiírni, 
amelyek a K tömb egy sorát alkotják: 


K(I,1) K(1,2) K(1,3) 


Eddigi tapasztalataink alapján már tudjuk, hogy ezeket a sorokat is ciklusban lehet 
kiíratni. 

A ciklusművelet egy sor kiírása. Ezt annyiszor kell ismételni, ahány érvényes 
sor (N) van a K tömbben. Erre is jól használható a FOR, NEXT utasításpárból fel- 
épített ciklus. A modul műveleteit a 75. ábra mutatja. 


A modulok kódolása 


A program tervezése során megállapítottuk, hogy az (1) modul kivételével minden 
modult szubrutinként kódolunk. 

Az (1)—(5) modul kódolása eddigi ismereteink alapján mind a négy gépen elvé- 
gezhető. Különbség a képernyő törlésében és az INPUT utasítás formájában (vesz- 
sző, illetve pontosvessző) van. A kiírást viszont gépenként kell megvizsgálni. 

A Commodore-:nál a nyomtató használatára külön utasítás van, a PRINT 3. A gép 
a nyomtatót nem tekinti , természetes" tartozékának, ezért a használat előtt össze- 
köttetést kell létrehozni a gép és a nyomtató között. Erre szolgál az OPEN utasítás: 


x OPEN állományszám, 4 


ahol 3 
OPEN — a kapcsolat-létrehozó utasítás kulcsszava, 
állományszám — 2 és 127 közötti kapcsolatazonosító, 

4 — a nyomtatóeszköz száma. 


Az állományszámnak akkor van jelentősége, ha több állományt használunk. Erre 
majd a 13. és 14. részben látunk példát. Esetünkben válasszuk a 2-t állomány- 
számként. 
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Vizsgálatsorozat vége 


THEN-ág 


K(I41,3)-—SB 


nem 
Modulbefejezés 


74. ábra. A (6) modul folyamata 
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Fej- 
rovat kiírás 


I. sor kiírása 


Modul- 
befejezés 


A megnyitás után következhetnek a kiírási utasítások a PRINT 3 alkalmazásával. 
A PRINT it utasítás használati módja megegyezik a PRINT utasításéval. De az uta- 
sítás formája az eszköz miatt eltér a már ismert PRINT utasítás formájától. 


75. ábra. A (7) modul folyamata 


x PRINT it állományszám, ada telemek 


ahol 
állományszám — annak az állománynak a száma, amelyre írni akarunk, 


adatelemek — a kiírni kívánt adatelemek. 


Az állományszám itt az a szám, amellyel a sornyomtatót megnyitottuk (2). Az 
adatelemeket ugyanúgy kell megadni, mint a képernyőre írás esetén. 
A kiírás végén a gép és sornyomtató közötti kapcsolatot meg kell szakítani a 


CLOSE utasítással. 
x CLOSE állományszám 


ahol 
CLOSE — az összeköttetést lezáró utasítás kulcsszava, 


állományszám — az a szám, amellyel a kapcsolatot létrehoztuk. 


Ezután a kódot megírhatjuk. Azt kell még meghatározni, hogy az oszlopokat mi- 
lyen eljárással kell kiírni. Ez esetben a TAB(n) függvényt használjuk fel a kimutatás 
oszlopainak kiírásához. Az oszlopok 10 szóköznyi távolságban legyenek egymástól. 


194 


nm A HT gépen a nyomtatás az LPRINT utasítással elvégezhető. (Ismét meg- 
jegyezzük, hogy a nyomtató csak külön csatolóegységen keresztül kapcsol- 
ható a géphez.) Az utasítást ugyanúgy lehet használni, mint a PRINT utasí- 
tást. Az eltérés csak az utasítás hatásában van: a nyomtatás a sornyomtatón 
megy végbe. A kimutatás adatelemeit vesszővel választjuk el. Mivel a vessző 
hatására a gép az adatelemeket a 16 pozíció széles mezők kezdetére írja, 
az adatelemek között egy-egy vessző szükséges. 


A A PRIMO esetében a nyomtatás ugyanúgy végezhető el, mint a HT eseté- 
ben (lásd fent). Itt is használható az LPRINT utasítás, és az adatelemek el- 
választását a TAB függvénnyel végezzük el a Commodore-hoz hasonlóan. 


e A Sinclair-gépeknél is az LPRINT utasítással lehet elvégezni a nyomtatást a 
HT géphez hasonlóan. Az LPRINT utasítást ugyanúgy lehet alkalmazni, 
mint a PRINT utasítást. 


A kimutatás adatelemeit a TAB függvény segítségével válasszuk el. Az egyes oszlo- 
pokra 16 pozíciót hagyjunk ki. 


Ellenőrző kérdések és feladatok 


1. Mi a BASIC nyelvben használható tömb előnye az egyedi adatnevekkel szemben? 
(Próbálja megoldani a 6. feladatot egyedi adatnevekkel!) 


2. Rajzoljunk egy teljes szinuszgörbét a képernyőre! Az X tengely legyen függőle- 
ges, és a képernyő 16. oszlopán helyezkedjen el. Az X és Y tengely metszéspont- 
ja aképernyő tetején legyen. A rajzoláshoz 16 sort használjunk fel (1 sor — rr/16), 
a függvényértékeket 14-szeresre nagyítsuk fel. A függvénypontokat csillaggal 
jelöljük. : 

3. Egészítsük ki a 6. feladatot azzal, hogy a kiírás végére kiírjuk a legkisebb és a leg- 
nagyobb mérési eredményt! j 


4. Állítsa össze ismerősei, barátai névsorát! Jegyezze meg mindenkinek a nevét és a 
testmagasságát. Készítsen egy programot, amely a névsort egyrészt ábécérendbe 
rakja, és kiírja a barátok nevét, valamint testmagasságát, másrészt a személyek 
nevét testmagasság szerint növekvő (vagy csökkenő) sorrendbe rendezi, és kiírja 
a neveket, valamint a testmagasságot. (A megoldáshoz használjuk fel azt az elvet, 
hogy szöveges változók közül az a , kisebb", amelynek kezdőbetűje az ábécében 
előbb van, mint a másiké.) 


5. A 7. feladatot egészítsük ki azzal, hogy az azonos munkaszámokra való kifizeté- 
seket összegezve írjuk ki: j 


MUNKASZAM OSSZ: 99999.99 
formában. A kimutatás végén pedig a kifizetések összegét írjuk ki: 
OSSZES KIFIZETES: 99999.99 i 


formában. 
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TI. JÁTÉKOK KÉSZÍTÉSE 


A képernyőre , rajzolás" alapjai, véletlenszámok generálása. 
A 8. feladat megoldása 


A számítógépet nemcsak műszaki és gazdasági számítások vagy más 
adatfeldolgozási feladatok elvégzésére lehet felhasználni, hanem szóra- 
koztató szerepet is játszhat. A számítógép mint , játszótárs" a kétsze- 
mélyes játékokban terjedt el. A mikroszámítógépek gyors térhódítása 
következtében a számítógépet mind nagyobb számban alkalmazták, és 
ez megnövelte a számítógéppel játszók táborát. 

A játékokban interaktív használata miatt nagy szerepet kap a BASIC 
nyelv, és az is segíti a BASIC nyelvű játékok elterjedését, hogy nagyon 
sok , játékos kedvű" ember (egyetemi hallgató, kutató stb.) használja, 
aki napi feladatain kívül szívesen , elszórakozik" a számítógéppel. En- 
nek köszönhető, hogy a számítógépes játékok programozása és a BASIC 
nyelv összetartozó fogalmak. 

A számítógép alkalmas játszótárs, mert interaktív (kérdést ír ki, a 
játékos válaszol), a játékos akcióira (lépéseire) gyorsan válaszol, statisz- 
tikával értékeli a játékos eredményeit, és végül: nem csal. 

Nagyon sok számítógépes játék van forgalomban, és számuk egyre 
bővül. Programozásuknak néhány egyedi sajátossága közül az egyik leg- 
lényegesebb a nagyfokú interaktivitás, vagyis számos kérdés és válasz. 
A játékprogramok sok alternatívát kezelnek, és nagyon sok funkciót 
tartalmaznak, ami a program szerkezetét bonyolulttá teszi. 


8. feladat 


A közismert hadihajócsata-játék számítógépen játszható, módosított változatát kell 
elkészíteni. Most csak a számítógép jelölhet ki egy hajót egy 20X20 (a HT-nél és 
a PRIMO-nál 12X12, a Sinclair-gépeknél 18X18) négyzetből álló háló valamelyik 
pontjára, amelyet a játékosnak el kell találnia. 

A játék célja, hogy a játékos minél kevesebb, de legfeljebb 15 

(um a HT-nél és A a PRIMO-nál 10, € a Sinclairnél 12) lövéssel eltalálja a hajókat. 


A játékszabályok: 


— a hajó helye véletlenszerű az adott csatamezőben; 
— a hajó eltalálása győzelemnek számít; 

— a hajó el nem találása sikertelenségnek számít; 

— a képernyőn az 1—20. 
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(ma HT-nél és Aa PRIMO-nál 1—12., e a Sinclairnél 1—18.) sor 
és 1—20. (m a HT-nél és Aaa PRIMO-nál 1—12., 6 a Sinclairnél 1—18.) 
oszlop által határolt területet kell csatatérnek tekinteni, és a lövés helyét itt meg 
kell jeleníteni egy csillaggal; 

— a hajó és a becsapódás helye közötti távolságot a játékossal közölni kell a játék- 
tér alatti 2. sorban. 


A játék kezdetén ki kell írni a játékszabályokat a játékos számára: 


EGY 20X20-AS (illetve 12X12-es vagy 18X18-as,) CSATAMEZŐBEN 
KELL EGY ISMERETLEN HELYEN LÉVŐ HAJÓT ELTALÁLNI 
A CÉLPONT KOORDINÁTÁINAK MEGADÁSÁVAL. A PROGRAM 
A BECSAPÓDÁS ÉS A HAJÓ TÁVOLSÁGÁT KÖZLI: A HAJÓRA 
LEGFELJEBB 15 (illetve 10 vagy 12) LÖVEDÉKET LÖHET KI. 


Ezután következik maga a vadászat. A játékos megadja az első becsapódás pontjá- 
nak a koordinátáit az alábbi kérdésre: 


AZ 1. LOVES KOORDINATAI (X, Y): 


Az X, Y koordináta-rendszer 0,0 pontja a játéktér bal alsó sarkában van (77. ábra). 

Ezután a játékos begépeli a lövés X, Y koordinátáit. Az ennek megfelelő ponton 
a csatatérben egy csillag karaktert kell kiírni, majd a program kiírja a becsapódási 
pont és a hajó közötti távolságot a játéktér alsó szélétől egy sorral lejjebb: 


A BECSAPODAS TAVOLSAGA:X 
Ha ez nulla, akkor a játékos eltalálta a hajót. Ezt külön is tudatni kell: 
ON ELSULLYESZTETTE AZ ELLENSEG HAJOJAT. 


A második lövés helye csak az első lövés valamelyik főirányú (fel, le, jobbra, balra) 
szomszédja lehet. Ugyanígy minden további lövés csak az előző lövés fő irányú 
szomszédja lehet. Minden lövés után továbbra is ki kell írni a becsapódás távol- 
ságát. 

Mivel az első lövés után nem koordinátákat kell megadni, hanem a lövés moz- 
gási irányát, a mozgatásra gombokat használunk fel. Ugy célszerű a négy irány- 
nak megfelelő négy billentyűt kiválasztani, hogy azok utaljanak a mozgás irányá- 
ra is. Ezért a gépeken az alábbi billentyűket válasszuk ki a mozgatásra: 


Commodore HT PRIMO Sinclair 
1 P P Ö 1 
6 L L A J 
a 23 3 3e K 
4 s - M 


Ha a 15. (illetve 10. vagy 12.) lövés sem talált, akkor a csata sikertelen volt. Ezt a já- 
tékossal közölni kell! : 


EZ NEM SIKERULT. 
A HAJO AZ X, Y KOORDINATAKON ALLT. 
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A feladat elemzése 


Ez a játék csak akkor élvezhető, ha az , ellenfél" (a számítógép) lépései kiismerhe- 
tetlenek, vagyis a játékos a korábbi játékok lefolyásából nem következtethet arra, 
hogy a program hol helyezi el a hajót a csatamezőben. A játékon belüli véletlen- 
szerűség az RND véletlenszám-generáló függvénnyel érhető el. 

A becsapódás helye és a hajó közötti távolság könnyen megállapítható, mivel 
minden pontot X és Y koordinátákkal adunk meg. Ügyelni kell azonban arra, hogy 
a program és a játékos is csak egész számmal jelölhet koordinátát. Ez különösen a 
találat érzékelésekor fontos. 

A becsapódás és a lövés távolságát a koordináták segítségével lehet kiszámítani a 
76. ábrán bemutatott ismert módszer alapján: 


R —V(XxX2—X1)? 4 (Y2—Y1)? 


Az R-nek csak az egész részét szabad a játékossal közölni, mivel azonos egész részű 
R-ek esetében a törtrész értékéről az irányra lehet következtetni: 


R — int V(X2—X1)? 4 (Y2—Y1)? 
Ha a törtrész 0, akkor vagy 
X1-X2, 


vagy 
Y15-Y2. 


Tehát valamelyik koordinátát eltalálta a játékos. Minél nagyobb a törtrész, annál 
biztosabb, hogy a két koordináta eltérése megegyezik: 


1xX2—X1I51Y2-Y1I 


A lövéseket számlálni kell, és a következő lövés sorszámát tájékoztatásul ki is kell 
írni. A 15. sikertelen lövés után a játékot be kell fejezni. 

A lövés helyének megjelölése a képernyőn számítógéppel megoldható. A kép- 
ernyő törlése után a helyőr a képernyő bal felső sarkában áll. Ha a játékos az 


X 5 
Y7-17 


76. ábra. A hajó és a becsapódás távolsága 
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lövést adta meg, akkor ez azt jelenti, hogy a helyőrt a 3. sor 5. pozíciójába kell állí- 
tani és ott egy csillag karaktert kinyomtatni. Azért kell így eljárni, mivel a mi szem- 
léletünk szerint a koordináta-rendszer origója a játéktér bal alsó sarkában van 
(77. ábra). A helyőr ilyen jellegű mozgatását meg lehet valósítani mind a négy gé- 
pen. A Commodore-gépen a helyőrt úgy tudjuk a képernyő egy megadott pozíció- 
jára állítani és ott valamilyen jelet kinyomtatni, hogy a PRINT utasításban idézője- 
lek közé helyőrt mozgató karaktert írunk be. Mivel előre nem tudjuk, hová kell 
állítani a helyőrt, mind a vízszintes, mind a függőleges mozgatást lépésenként kell 
végrehajtani a játékos által megadott koordinátáknak megfelelően. A fenti példá- 
ban a helyőrt 5 lépésben kell 1—1 pozícióval jobbra tolni, és 3 lépésben ketl 1—1 
sorral lejjebb tolni. Ez sugallja, hogy a mozgatásra egy függőleges és egy vízszintes 
ciklust kell kialakítani, amelyeket annyiszor kell végrehajtani, ahányadik pozíció- 
ba vagy sorba kell a helyőrt mozgatni. 


mA HT, 4 a PRIMO és € a Sinclair-gépeken a képernyő bármely pontjára 
közvetlen címzéssel tudunk kiírni. Ez azt jelenti, hogy egyetlen utasításban 
meg lehet adni annak a pontnak a koordinátáit, ahová írni akarunk valamit. 


Felmerül a kérdés, hogy mi történjék akkor, ha a játékos bármely irányban eléri 
a játéktér szélét, és további lépést kísérel meg kifelé. Mivel a játéktér határai nem 
láthatók a képernyőn, nem tisztességes a kilépést mr.gengedni vagy a lövésmódosí- 
tást letiltani. E helyett a , körben járást" végezzük el, vagyis ha a játékos bármely 
oldalon kilépne, akkor az ellenkező oldalon lépjen be ellenkező irányban a játéktér- 
be. Így a kilépés is hasznos lépés lehet. 

A csillag kinyomtatása után a játéktér alatti 2. sorba kell menni, és ki kell írni 
a távolságot, majd még egy sorral lejjebb a következő lövés sorszámát. 

A második lövéstől kezdve a játékos a 200. oldalon megadott gombok valame- 
lyikével lő. A lövés beolvasására az INPUT utasítás nem használható, mivel a be- 
olvasott adat a képernyőn megjelenne, s ezzel a kialakított képet megzavarná. He- 
lyette más lehetőséget kell használnunk. 

Először is azt kell tudni, hogy minden billentyűhöz egy kód tartozik (0—255 kö- 
zötti szám), amely a billentyű lenyomásakor a tár meghatározott rekeszébe kerül, 
majd onnan a központi egységbe. 

A leütött billentyű kódját (jelentését) egy utasítással ki lehet olvasni. Ezzel a 


1. sor f j 
2.sor ! [j 
I [j 
§ [j 
; l ú; 
I 1 Játéktér 
! ! (20 x 20) 
1 B al 
Íj 
1) 
! 1) 
l [ 
1 I 
l [j 
: 
! 
! ! 
; 
20.sor 8 MENTETTE ÉNTTÉKYS TS EROK e eTTES SEN S TRONNNTENTEEÉT 3 
ő — am X 


77. ábra. A játéktér pontjainak értelmezése 
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program számára meg lehet tudni, hogy a felhasználó melyik gombot nyomta be, 
és ezután mit kell tenni. A betűk és a speciális jelek gombjai esetében az elemzés- 
ben a kódot nem kell külön ismerni, elég csak a gombon levő karaktert megadni. 
Ha például azt kell figyelni, hogy a felhasználó A betűt ütött-e le, akkor meg kell 
vizsgálni, hogy a tár megfelelő helyén A betű van-e, és nem az A betűnek meg- 
felelő kódszámot kell megadni (de azt is lehet). Erre a kiolvasásra használható a 
Commodore-nál a 


GET 
mi a HT gép, 4a PRIMO és e a Sinclair-gépek esetében az 
INKEY$ 
utasítás. Az utasítás formája: 
x GETA$ 
[J A HT gép és 4 a PRIMO esetében 
x A$- INKEY$ 
e a Sinclair-gépeknél pedig az ÍINKEY$ önmagában állhat, mert nem tartozik 


hozzá az utasítástárgy. 


Az utasítás hatására A$ felveszi a legutolsónak leütött billentyű kódját, egyben törli 
(nullát ír be) a tárnak azt a rekeszét, amelyből kiolvasta a kódot. 

A GET, illetve az INKEY$ utasítás nem vár valamilyen billentyű leütésére, mint 
az INPUT utasítás, hanem az olvasás eredményétől függetlenül továbbmegy. Ha te- 
hát azt akarjuk, hogy a program egy billentyű lenyomását megvárja a program egy 
adott pontján (pl. ez alapján kell eldönteni, hogy milyen műveletet kell a program- 
nak végrehajtani), addig nem szabad továbbmenni, amíg ez meg nem történik. En- 
nek az a módja, hoy amíg nem ütünk le billentyűt, addig az olvasást meg kell is- 
mételni: 

2g GET A£ 


39 IF A$-"" THEN Eg 


u A HT gépnél és 4 a PRIMO-nál: 


29 H$-ZINKEYE 
39 IF AF4-"" THEN 28 


e A Sinclair-gépeknél : 
29 IF INKEY$H-"" THEN zg 


Vagyis a gép egy végtelen ciklust hajt végre mindaddig, amíg a beolvasott érték egy 
Üres" karakter, azaz nem nyomtunk le billentyűt. Ha bármelyik billentyűt le- 
nyomjuk, a visszaugrás feltétele nem teljesül, ezért a program a következő utasítás- 
soron folytatódik. 

Példánk értelmében most azt kell megvizsgálni, hogy melyik gombot nyomta le a 
felhasználó, és ennek megfelelően melyik irányba kell mozgatni a kiírt karaktert. 
Mind a négy gépen azt kell vizsgálni, hogy melyik billentyű kódja jelenik meg az er- 
re kijelölt A$ változóban. Ez pedig megegyezik a billentyűn levő jel (alsó állásban) 
kódjával, amit a jellel adhatunk meg. Eszerint a programnak az alábbi funkciói 
vannak: 


— a játékszabályok kiírása és a hajó elhelyezése, 
— a kezdőlövés koordinátáinak beolvasása, 
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— a lövések fogadása és értékelése 

(2—15), 

(u HT-nél és A PRIMO-nál 2—10., 6 Sinclairnél 2—12.) 
— a játék befejezése. 


A feladat szerkezetét a 78. ábra mutatja. 


A program tervezése 


Vizsgáljuk meg az egyes funkciókat részletesen! A kezdőműveletek lényegében két 
lépésből állnak: ki kell írni a megadott játékszabályokat, és el kell helyezni a hajót a 
játéktér valamelyik pontjára. Tehát ezt a funkciót célszerű 2 modulra bontani 
(79. ábra). 

A kezdőlövés két adat beolvasásából áll, ezért további bontása felesleges. Ezután 
és minden további lövés után a következő műveleteket kell elvégezni: 


— ha a játékos nem az első lövést adta le, akkor várni kell a lövésre, és meg kell je- 
gyezni a módosítás irányát; 

— ki kell írni a képernyő megfelelő pontjára a csillagot; 

— meg kell határozni a lövés és a hajó távolságát (értékelés) ; 

— meg kell határozni a leadott lövések számát; 

— a játéktér alatti 2. sorba ki kell írni a távolságot; 

— a következő sorba ki kell írni a következő lövés sorszámát. 


Az utolsó lépés után az elsőnek írt következik, és ez ismétlődik mindaddig, amíg a 
játékos vagy eltalálja a hajót, vagy leadta mind a 15 (illetve 10 vagy 12) lövést. Eze- 
ket a lépéseket tehát ciklusban kell végrehajtani. 

A ciklus változója ezek szerint a lövésszám lenne. A ciklusváltozót a ciklusmag 
végén ellenőrizzük, tehát a ciklus hátul tesztelő lesz. A ciklus befejezési feltétele ak- 
kor teljesül, ha a lövésszám már 15-nél nagyobb. A ciklus előkészítő művelete az el- 
ső lövés leadása, amely induló értéket ad a lövési művelethez. 

A ciklusból viszont akkor is ki kell lépni, ha találat következik be. Ezek szerint a 
ciklusmag végén nemcsak a lövésszámot kel! ellenőrizni, hanem a találatot is. A cik- 
lus befejezési feltétele tehát akkor teljesül, ha vagy minden lövést leadtunk, vagy 
találat következett be. 

A további lövés részfeladatot ezzel négy modulra bontottuk. A (8), (9) és (10) 
modulok a lövési ciklus magját alkotják. A (13)-as modult csak akkor kell végrehaj- 
tani, ha nem a kezdőlövést adta le a játékos (vagylagos végrehajtás). 

A befejezésben értékeljük a játékot. A következő sorba a találathoz tartozó vagy 
a sikertelen befejezés szövegét kell kiírni. A találat és a sikertelen vadászat kiírásait 
célszerű két külön modulba tárolni, és a (10) modulban elért eredménytől függően 
valamelyiket hívni. Ezután a program befejeződik. 


kKezdőművelet További lövések 


78. ábra. A feladat szerkezete 


204 


2/0107 Ú4AN 


(71) 


$919491143 spuryboii1s9 


( 


12/DIDJ/ 
(IL) 


OL) (6) 


$949/ Ig9D10/ 


(4) 


e1aZaYJoZSINpOU J2pejay "8 V "egy "sz 


3pDIDŐSZIA 


-LUDZSS9A07 
(8) 


özazAjay 0/oH 
(2) 


yohpgozsyaypr 
(9) 


s940Jopzay 


X378/9ANUOpzay 
(7) 


(€£) 


"294ADJDS]) 
(1) 


viws5 


205 


A programot a bemutatott programtervezési módszer szerint építjük fel (79. áb- 
ra). A programban ezek szerint összesen öt vezérlőmodul van: az (1), (2), (4), (5) 
és (8) modul. 


A modulok tervezése 


(1) Csatavezérlés 
A modul vezérlést végez. Bemeneti adata nincs. Kimeneti adata a (2), (3), (4) és (5) 
modul hívása. 

A modul a fenti négy modult szekvenciálisan hívja, utána a befejezésre tér át 
(80. ábra). 


(2) Kezdőművelet 
A modul vezérlő típusú. Bemeneti adata nincs, kimenete a (6) és (7) modul hívása. 
A modul a (6) és (7) modult hívja (80. ábra). 
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80. ábra. Az (1) és (2) modul 
ZÁ EZ le ee eb feet ell E EZ ezis e eszt födém lelek al ee ee pedálágy ela ése 1 folyamata 


(3) Kezdőlövés 
A modul eljárás típusú. Bemeneti adatai a játékos által begépelt X2, Y2 koordi- 
náták, és ezek képezik a modul kimenetét is. 

A modul első művelete az X2 és Y2 beolvasása. Mindkettőt csak akkor lehet 


elfogadni, ha értékük az 


(1,20), 
u HT-nél és APRIMO-nál az 

(1,12), 
e Sinclair-gépnél pedig az 

(1,18) 


intervallumba esik. Ezt ellenőrizni kell, és hiba esetén a hibás adat nevét ki kell írni: 
AZ X ERTEKE HIBAS, UJRA KEREM! 


Ezután a beolvasást meg kell ismételni. A helyes értékű adatnak csak az egész értékét 
kell figyelembe venni, mert a találat nem lenne kimutatható, ha a játékos nem egész 
számot gépel be. Ebben a modulban kell a lövésszámlálást is elkezdeni az 


L—-—1 


értékadással. A modul műveleteit a 81. ábra mutatja. 


(4) További lövés 
A modul vezérlő típusú. Bemeneti adata a lövésszám (2) és a találatjelző (T). Kime- 
nete a (8), (9) és (10) modul hívása. 

A modul a (8), (9) és (10) modult hívja mindaddig, amíg vagy találat nem követ- 
kezik. be, vagy a játékos le nem adta az összes megengedett lövésszámot (Commo- 
dore-nál 15, um HT-nél és A PRIMO-nál 10, e Sinclair-gépeknél 12). Mint a tervezés 
során már megállapítottuk, a (8), (9) és (10) modulok egy ciklust alkotnak, amelyet 
ez a modul irányít. A ciklus hátul tesztelő, azaz a három hívott modul után kell 
vizsgálni a befejezés feltételét. 

A ciklus akkor fejeződik be, ha a lövésszám elérte a megengedett maximumot 
(Commodore-nál 15, m HT-nél és A PRIMO-nál 10, e Sinclairnél 12), vagy találat 
következett be (T—1). A (13) lövés modulban minden lövés után meg kell növelni 
a lövések számát eggyel. Emiatt a lövésszámváltozó (L) már a következő lövés 
sorszámát tartalmazza. (Az utolsó megengedhető lövés után pedig ennél eggyel na- 
gyobb számot.) Ezért az egyik befejezési feltétel a lövések maximuma 7-1 (82. ábra). 


(5) Befejezés 
Vezérlő típusú modul. Bemenete a T találatjelző értéke. Kimenete vagy a (11), vagy 
a (12) modul hívása. A modul a 

T-—-1 


feltétel teljesülése esetén (találat következett be) a (11) modult, egyébként a (12) 
modult (nincs találat) hívja (82. ábra). 


(6) Játékszabályok 
A modul eljárás típusú. Kívülről nem kap adatot, kimenete a játékszabályok kiírása 
(83. ábra). 


(7) A hajó helyzete 
A modul eljárás típusú. Bemenete két véletlenszám a hajó helyzetének meghatározá- 
sához, kimeneti adata a hajó helye a csatatér területén. 
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X2,Y2 
beoivasás 
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x2Y2. 
egész értéke 
81. ábra. A (3) modul művelete 


A hajó helyzetét a program az RND függvény segítségével véletlenszerűen úgy 
tudja kijelölni a játéktérben, hogy mind az X1, mind az Y1 koordinátát véletlen- 
szám-generálással állítja elő. A Commodore-nál figyelembe kell venni, hogy az RND 
(0) utasítás csak a 

[0.1] 


intervallumba eső számot képes generálni. Ezért a kapott véletlenszámot meg kell 
szorozni 20-szal, és hozzá kell adni 1-et, hogy a kívánt intervallumba essen. Mindig 
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(8) modul 


hívása 


(92) modul 
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(10) modul 
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82. ábra. A (4 ) és (5 ) modulok folyamata 


csak egész számú koordinátákat veszünk figyelembe, ezért a kapott értéknek csak 
az egész részét kell megtartani. Vagyis a koordináták kiszámítása: 


X1-— INT (20£6£RND(0)) -- 1 
Y1— INT (20XRND(0)) -- 1 
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m A HT gép esetében az 
[1,12] 
intervallumba eső véletlen egész számot kell generálni a hajó helyzetének 
meghatározásához. Ezt az 


RND (12) 
függvénnyel lehet elérni: 
X1- RND (12) 
Y1-— RND (12) 


Ha csak ezt a két utasítást alkalmaznánk, akkor a gép minden bekapcsolása 
után ugyanazt a véletlenszám-sorozatot állítaná elő. Így viszont a játék 
elveszítené érdekességét, mert megtanulható lenne. Ezért a koordináták 
meghatározása előtt egy 

X RANDOM 


utasítást kell megadni, amelynek eredményeként a gép minden alkalommal 
más véletlenszám-sorozatot állít elő egy játéksorozathoz. 


A A PRIMO gépen a koordináták véletlenszámait szintén az 
[1.12] 
intervallumban kell előállítani. Ezt a feladatot az RND véletlenszám-gene- 
ráló függvénnyel végezzük el: 
X1— RND(11)--1 
Y1—-— RND(11)--1 
A játék teljes véletlenszerűségét itt is a RANDOM utasítás alkalmazásával 
lehet elérni a HT gépen való megoldáshoz hasonlóan. 
e A Sinclair-gépeknél az 
[1,18] 
intervallumban kell a véletlenszerű koordinátákat előállítani. Itt is az RND 
véletlenszám-generáló függvényt alkalmazzuk: 


X1—- 1-4INT (RND 5618) 
Y1 — 14INT (RND 5618) 


A teljes véletlenszerűséget ennél a gépnél a RANDOMIZE utasítás bizto- 
sítja, amelyet a véletlenszám-előállítások elé kell írni. 


A modul műveleteit a 83. ábra mutatja. 


(8) Lövésszámvizsgálat 
A modul vezérlést lát el. Bemeneti adata a már leadott lövésszám (L). Kimenete a 
(13) modul hívása vagy nem hívása. Ha 


[sm ik 8 ; 


akkor a (13) modult kell hívni, egyébként nem. A modul műveletei a 84. ábrán 
láthatók. 


(9) Csillagkiírás 

A modul eljárás típusú. Bemeneti adatai az X2 és Y2 koordináták, amelyek megmu- 
tatják, hová kell kiírni a csillagot. A modul kimenete a csillag megjelenítése a kép- 
ernyőn. 
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83. ábra. A (6) és a (7) modul folyamata 


A modult minden lövés után végre kell hajtani, mivel a csillag helyzete csak úgy 
módosítható, ha az egész kiírási műveletet megismételjük a módosított adattal. 

A modul helyzetén a helyőrt a bal felső sarokba kell állítani, és a képernyőt 
törölni kell. Ezután a helyőrt a Commodore-nál : 


Y3— 20—Y2 
lépésben a megfelelő sorba kell állítani (az 1. sorban Y—20, a 20. sorban Y—1). Ha 
Y27- 20, 


akkor a helyőrt az első sorban kell hagyni. Ilyenkor a lefelé mozgató ciklus művele- 
teit nem kell végrehajtani. 
A sorbeállítás után a soron belüli helyzetet kell meghatározni. A helyőrt az adott 
soron belül az 
X37- X2 


sorszámú oszlopba kell léptetni. Ehhez viszont csak X2—1 léptetést kell elvégezni, 
mivel a helyőr az 1. oszlopról indul. Ezt a műveletet is csak akkor kell végrehaj- 
tani, ha 

X22 1. 


Mindkét műveletet ciklusban kell végrehajtani. Mindkét ciklus magjában a helyőr 
1—1 léptetése megy végbe. 

A modul műveletei a 84. ábrán láthatók. 
Magát a mozgatást a PRINT utasítás tárgyában levő helyőrmozgató karakterrel vé- 
gezzük el. 
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84. ábra. A (8) és a (9) modul 
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A HT gépen a csillagot egyetlen utasítással ki lehet íratni, mivel a képernyő 
minden kiírási pontja közvetlenül címezhető az 


x PRINT 2 mutató "szöveg" 


alakú utasítással. A PRINT £ a helyőrt állítja a mutató által meghatározott 
pontra a képernyőn, és ítt kiírja a szöveget. A mutató 


[0, 1023] 


tartományba eső értéket vehet fel. A 0 a képernyő bal felső sarkát, az 
1023 a jobb alsó sarkát jelöli. A szöveg tetszőleges BASIC szöveg lehet. 
Az utasításban az okozza a kellemetlenséget, hogy a 16 sorra és 64 
oszlopra felosztott képernyőn nekünk kell meghatározni a kiírási pozíciót. 
Ha például az 5. sor 4. oszlopába akarunk valamit kiírni, akkor az első 
négy soron keresztül kell menni. Ez a 


4X64—256 


pozíció. De mivel a 0-ról indulunk, a 4. sor utolsó pozíciója a 255. Ehhez 
hozzá kell adni még 4-et (4. pozíció a sorban), ekkor a mutató érté- 
ke 259 lesz. 

Az a kérdés, hogy tudjuk átszámolni a kezdőlövés X2 és Y2 koordinátáit 
egyetlen mutatóvá. Nézzük meg a 77. ábrát! A képernyő bal felső sarkában 
akkor jelenik meg a csillag, ha a mutató értéke 0. A lövés koordinátái 
viszont: 

X2— 1 
Y2-—12 


Ha X2-t eggyel növeljük, akkor a felső sor 2. pozíciójára kerül a csillag, 
amely mutató értéke 1. Azt látjuk tehát, hogy egy soron belüli pozíciót az 


X2—1 


értéke határoz meg. Ha 
X2—1 
Y2—11 


(a második sor bal szélső pozíciója), akkor a mutató 64 (az első sorban a 
mutató 0—63 között változik). Ha egy sorral lejjebb megyünk, akkor a 
mutató értéke 64-gyel nő. Vagyis a soronkénti változás a 


64 (12—Y2) 


kifejezéssel írható le. Ezek az értékek különböző Y2-knél a sor bal szélén 
levő pozíciókat határozzák meg. A soron belüli helymegjelölés végett 
ehhez még hozzá kell adni az 

X2—1 


értéket. Ebből következően a mutató : 
M-64(12—Y2)tXxX2—1 
Ezzel a csillagkarakter már kiírható. 
A PRIMO gépen az 
x PRINTS$ sorszám, oszlopszám, " szöveg" 


alakú utasítással a képernyő tetszés szerinti sorába és oszlopába a megadott 
szöveget ki lehet íratni. 
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A sorszám 0—15 közötti érték a képernyőn felülről lefelé haladva. Az 
oszlopszám pedig 0—41 közötti érték a képernyő bal szélétől jobbra növe- 
kedve. A sorszám 

12—Y2 


kifejezéssel számítható ki, mivel az utasításban levő sorszám a felső sorban 
O, alatta 1, és így tovább. A játék legalsó sora viszont a 12. sor. Ezért kell a 
fenti különbséget számolni. Az oszlopszám (soron belüli pozíciószám) 
eggyel kisebb, mint az X2 koordináta (nulláról indul). Ezek szerint az 


X2—10 
Y2-6 


lövéshez tartozó csillag az 


x PRINT$ 2,5, 56" 


utasítással írható ki. 


e A Sinclair-gépeknél a képernyő megadott pozíciójára való kiírás elve 
megegyezik a PRIMO-nál bemutatottal, a különbség az utasítás formá- 
jában van: 


x PRINT AT sorszám, oszlopszám;" szöveg" 


A sorszám itt is 0-nál kezdődik, és 21-ig mehet. A O sorszámú a képernyő 
legfelső sorát jelenti. Az oszlopszám balról jobbra haladva O-tól 31-ig nő. 
A lövés koordinátáit is hasonlóan lehet átszámítani sorszámmá és oszlop- 
számmá. A sorszám a 

18—Y2 


különbségből számítható. Az oszlopszám pedig az 
X2—1 


különbségből adódik. 
Mindezek figyelembevételével az 


Y2—13 
X27-2 


koordinátájú lövéshez a csillagot a következő tartalmú utasítással tudjuk 
kiíratni: 
x PRINT AT 5,17"3€" 


Megjegyezzük, hogy az AT függvény a TAB-hoz hasonlóan csak a PRINT 
utasítással együtt használható. 


(10) Értékelés 
A modul eljárás típusú. Bemeneti adatai a hajó koordinátái (X1, Y1) a (7) modul- 
ból, a lövés koordinátái (X2, Y2) a (3) vagy a (13) modulból. A modul kimenete a 
hajó és a becsapódás helye távolságának kiírása. 

A távolságot a program terve szerint az 


R — int V(X2—X1)? 4 (Y2—Y1)? 


képlettel kell kiszámítani. Ha 
R-—0, 
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akkor a találatjelző értéke 


T-1 
lesz, egyébként 
T-0O 
marad. 
A távolság kiírása előtt az utolsó kiírás (csillag) 
Y3-—20—Y2--1 
ÍJ a HT gép és Aa PRIMO esetében az 
Y3—12—Y2--1 


Üres sor- 
kiírás 

Távolság - 
kiírás 


Következő lövés 
sorszámkiírás 


Modul- 
befejezés 


85. ábra. A (10) modul folyamata 


e a Sinclair-gépeknél az 
Y3—18—Y2-1-1 


sorban volt. (Ne tévesszük össze a kiírási sor számát a léptetés számával!) 
Ebből következik, hogy 


S-22—Y3—-—22—(20—Y2-t-1)—1-Y2 


üres sort kell nyomtatni a csillag után (ekkor érünk a játéktér alatti 2. sorba), mi- 
előtt a távolságot kiírnánk. Az üres sorokat a már ismert ciklusos formában ,,ír- 
juk ki". Itt kell növelni a lövések számát is (L1—L--1), mivel ezt a modult minden lö- 
vés után végre kell hajtani. A távolság kiírása után a következő lövés sorszámát (L) 
is ki kell írni (85. ábra). 


(11) 7alálat 
A modul eljárás típusú. Bemeneti adata nincs. Kimenete a találat kiírása. 
A modulban egyedül a találatot kell kiírni (86. ábra). 


(12) Nem talált 
A modul eljárás típusú. Bemeneti adatai a hajó helyzetének koordinátái (X1, Y1). 
Kimenete a sikertelenség kiírása. 

A modulban csupán a sikertelen befejezés szövegét kell kiírni (86. ábra). 


(13) Lövés 
A modul eljárás típusú. Bemeneti adatai az előző lövés X2 és Y2 adata, valamint 
a játékos módosító lépése. Kimenete a módosított X2 és Y2 koordináta. 

A modulban a játékos lépéseit kell várni. Műveletet csak akkor kell végrehaj- 
tani, ha a játékos lenyomja valamelyik lövésmódosító billentyűt. A billentyű le- 
nyomásakor a billentyűtől függően más-más műveletet kell az alábbiak szerint 
elvégezni: 


Lenyomott billentyű 


e Módosító koordináta 


Y2 növelése (sorszámcsökkentés) 
X2 csökkentése 

X2 növelése 

Y2 csökkentése (sorszámnövelés) 


Ebből következik, hogy a billentyűlenyomás figyelési ciklusában mind a négy nyo- 
mógombot külön kell érzékelni, ezért ez egy CASE szerkezetet fog alkotni. A CASE 
szerkezet műveleteiben a fentiek szerint eggyel módosítani kell a kiválasztott koor- 
dinátát. Ezenkívül figyelni kell azt is, hogy a lövés nem esik-e a játéktéren kívülre. 

Ha például X2—8 és Y2—1 (vagyis a csillag a játéktér legalsó sorában van), és a 
játékos a lefelé haladás gombját nyomja le (Y2-t tovább csökkenti, azaz a játékteret 
lefelé hagyná el), akkor a csillagnak a 8. oszlop tetején (1. sor) keli megjelennie, te- 
hát Y2—20 (illetve 12 vagy 18) lesz. 

A modul folyamata a 87. ábrán látható. 


A Commodore-nál, 

A a PRIMO-nál és e a Sinclair-gépeknél a lövési koordináták módosítása köz- 
vetlenüi elvégezhető az X2 és Y2 eggyel való csökkentésével vagy növelé- 
sével, illetve a , túlsó oldali" koordináta értékének megadásával. 
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11) modur] ETET ET TS Tam MT e a 
l Találatkiírás j 
I 
j j 
 JEKIRENRÉSR BEER Rtl tÉKAT NRT A ÉRENGNTSNRÉNÉNÉSY SRTNTERÉNATRÉTRBE S ÉSERENEV SENET GENE 4] 
(12)modul l 
l I 
! Sikertelen j 
j befejezés kiírás I 
j ! 
ÜL ez ezet énse ezgjááeemásig jea més se ken jea zése; JA 
86. ábra. A (11) és (12) modul folyamata 

e A HT gépnél azonban ezt nem tudjuk közvetlenül elvégezni, mivel itt egyet- 


len számmal kell a lövés helyét megadni. Ha Y2-t növelni kell, azaz feljebb 
kell menni a képernyőn, akkor értékéből 64-et le kell vonni: 


M — M-—64 
Ha Y2-t csökkenteni kell, akkor viszont hozzá kell adni 64-et: 
M — MTt64 
Az X2 változtatása már csak eggyel módosítja az M értékét: 
X2 csökkentése M — M—1 
X2 növelése M-Mt1 


A HT gépnél a körben járás elég nehéz feladatot jelent, ezért ennek meg- 
oldásától eltekintünk. 


Kódolás 


A program kódjából néhány nevezetesebb részt bemutatunk. A további lövés mo- 
dul vezérlési feladatot ellátó kódja: 


519 GOSUB 850 (Ilövésszámvizsg.) 
529 GOSUB 3499 (csillagkiírás) 
agy GOSUB 1190 (értékelés) 


549 IF (L:152) OR T-1 THEN 56560 
ssa GO Tú 5SI19g 
369 RETURIN 


Az első három utasítás a ciklusmag moduljait hívó utasítás. A negyedikben ellen- 
őrizzük a ciklus befejezési feltételét. A ciklust a 15. lövés után, vagy találat esetén 
fejezzük be. Az IF THEN utasításban szerepel mind a két feltétel, ezeket az OR szó- 
val kapcsoltuk össze. Ez azt jelenti, hogy ha a két feltétel közül bármelyik vagy 
mindkettő teljesül, akkor a THEN utáni rész hajtódik végre. Ha egyik sem teljesül, 
akkor a THEN utáni részt nem hajtja végre a gép. Ekkor az IF utasításban logikai 
feltételkapcsolatot vizsgálunk. 
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Billentyűolvasás 


87. ábra. Az (7) modul folyamata 
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A csillagkiírást az alábbi ciklusok végzik el: 


Jig 
sen 


sza 


1999 FRINT 


PRINT"ú4" 
IF 20-Y2-O THEN 9689 


FOR I-1 TO 28-re 
PRINT"M"; 

NEXT I 

IF X2-zi THEN 1999 


FOR J-1 TO X2-1 
PRINT"HE" ; 

MEXT J 

98-age: 8 


19iíd RETURN 


képernyőtörlés 
a csillag a legfelső sorban marad, 
nem kell lejjebb mozgatni 


a helyőr lefelé mozgatása 


a csillag a bal szélső oszlopban 
marad 


a helyőr jobbra mozgatása 


A 940-es sorban a PRINT utasításkulcsszó után egy inverz O áll, amely a helyőrt 
lefelé mozgató billentyű leütésével írható be. Ugyanígy a 980-as sorban a PRINT 
után inverz szögletes záró zárójel áll,. amely a helyőrt jobbra mozgató billentyű le- 
ütésével írható be. 


Végül nézzük meg a mozgató billentyűk lenyomásának figyelését: 


1419 GET A£ 

1415 IF A$-"" THEN 14109 billentyűolvasás 
1429 IF A$-"P" THEN 1470 P gomb (felfelé) 
1439 IF A$-"L" THEN 1519 L gomb (balra) 
14409 IF A$z":" THEN 15509 : gomb (lefelé) 
1459 IF A$-"." THEN 1599 . gomb (jobbra) 
1469 GOTO 1419 

1478 REMkKk F1 GOMB : vissza az olvasáshoz, 


ha nem mozgató- 
gombot nyomtunk le 
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Ellenőrző kérdések és feladatok 
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. Hogyan lehet még a csillagot kiírni a lövés helyére? 


. Alakítsa át úgy a 8. feladatot, hogy ha a játékos eléri a csatatér szélét, és ki akar- 


na lépni, akkor a kifelé mutató lövést ne fogadja el! (Még szebb a megoldás, ha a 
játékos valamilyen figyelmeztetést is kap erről.) 


. Készítsen , fej vagy írás" (pénzdobálós) játékot úgy, hogy a gép , dobja fel" a 


pénzt! Lehessen fogadni is! 


. Készítsen lottójátékot, amelyben a gép , húzza ki" az öt számot, és kiírja a kép- 


ernyőre! 


. Készítsen huszonegyező játékot, amelyban a gép a bankos (osztó), és az egyet- 


len játékos a felhasználó! Egyszerű változatában , pénz nélkül" (ütési lehetőség 
nélkül) játsszanak, de készítsünk olyan megoldást is, amelyben ütni is lehet! 


12. TÖBB PROGRAMBÓL ÁLLÓ 
SZERKEZETEK 


Miért kell egy feladatot több programmal megoldani? 
Mi a feltétele a több programos szerkezetnek? 
Néhány alapszerkezet 


Egy feladat nem mindig oldható meg egyetlen programmal. Ennek 
egyik oka az lehet, hogy a feladat túl hosszú programot eredményezne, 
ezért inkább több különálló programból építjük fel. Egy másik ok pe- 
dig, hogy a feladat egy részére már van alkalmas kész program, így csak 
a hiányzó részekhez kell programo(kaljt írni. ; 

Több programos szerkezet főleg csak lemezes tárolóval rendelkező 
gépnél valósítható meg, mivel a kazettáról való betöltés egy programnál 
nem jelent akadályt, de több program bemásolása már rendkívül nehéz- 
kessé tenné a programok használatát. 

A több programos szerkezet jelentősen eltér az egyprogramos szer- 
kezettől. Az egyprogramos megoldásnál a program teljes egészében 
a tárban van, így minden modul (vagy szubrutin) szabadon hívható. 
Több programos szerkezetnél viszont a programrendszernek mindig 
csak egyetlen programja — az aktuálisan futó program — tartózkodik 
a tárban. Így az sem lehetséges, hogy egy vezérlő-(fő-)program állan- 
dóan a tárban legyen, hogy a többi program futását irányítsa. 

A programcserének az a következménye, hogy a bemásolás előtt 
a bent lévő program törlődik, és aztán csak az új marad bent a tárban. 
Az adatokat ilyenkor általában nem törli a gép, így a következő prog- 
ram elvileg használhatja az előző program adatait. Az előző program 
adatai akkor használhatók teljes biztonsággal, ha a második program 
rövidebb az elsőnél (kevesebb utasításból és adatterületből áll). Ez a 
feltétel viszont nem mindig teljesíthető. 

De az sem jelent lényeges akadályt, ha a két program nem tud egy- 
mással kommunikálni a tárban tárolt adatok révén. Ilyenkor még 
mindig fennáll annak a lehetősége, hogy külső tárolóeszközön tároljuk 
(lásd a 13. részben) a közösen használt adatokat. 

Egy programból egy másik programot a Commodore—64 esetében 
a LOAD utasítással lehet hívni: 


x LOAD "programnév" 8 


ahol 
programnév — a hívott program neve, amilyen néven a kata- 
lógusokban szerepel, 
8  — a lemezegység sorszáma. 
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Az utasítás hatására a jelenleg futó program a tárból törlődik (tovább 
nem használható), a gép behívja a megadott nevű programot, és futtatni 
kezdi az első sortól kezdve. A felhasználó lényegében nem is veszi észre, 
hogy programcsere történt. Hogy elkerüljük az adatok megőrzésével 
kapcsolatos bizonytalanságot, a program bemásolása előtt, az előző 
program végén CLR utasítással törölni kell a változók tartalmát. Az uta- 
sítás formája: 
x CLR 


A törlőutasításnak nincs tárgya, de felesleges is, mivel valamennyi 
változó tartalmát nullázza. Így a programcsere kifogástalanul működik 
ugyan, de a programok közötti adatcsere megszűnik. Ez adott esetben 
a programrendszer működését is lehetetlenné teheti. 

A probléma szerencsére nem megoldhatatlan. Egy kis többletráfordí- 
tás árán átmenthetjük a változók értékeit a programcsere és a törlés 
ellenére. Ezekkel az eljárásokkal itt nem foglalkozunk. 

Vigyázzunk! Több programos rendszerben hiba esetén ne felejtsük el 
megnézni, hogy melyik program futott éppen (pl. listázással)! 

A több programos szerkezetek logikai felépítése ugyanolyan, mint 
más programoké, de a kódolásukban vannak eltérések. Nézzük meg 
a leggyakrabban előforduló szerkezeteket! 


SZEKVENCIÁLIS PROGRAMOK 


A legegyszerűbb eset. A programrendszerben lévő programok valami- 
lyen sorrendben hívják egymást (88. ábra). 


A programrendszer végrehajtása az 1. részfeladatot megvalósító prog- 
rammal kezdődik, majd ez hívja a 2. részfeladatot megoldó programot. 
Ennek végrehajtása után a futás befejeződik. Kód szempontjából annyi 
az újdonság, hogy az 1. részfeladat programjának a végén (az END 
előtt) egy LOAD utasítást kell elhelyezni. 


KEZDÉS 


1. részfeladat 
2. részfeladat 


Programrendszer- Végrehajtási 
szerkezet: sorrend 


FELADAT 
k 8 57 AA 
részfeladat részfeladat 


88. ábra. Szekvenciális programok 
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FŐPROGRAMOT TARTALMAZÓ SZERKEZETEK 


Vannak olyan feladatok, amelyekben több, egymástól többé-kevésbé 
független funkciót kell ellátni. Az olyan esetekben, amikor a funkciók 
eléggé összetettek ahhoz, hogy mindegyiket önálló programmal való- 
sítsuk meg, vagy a funkciók hívási sorrendje nem kötött, hanem a fel- 
használón múlik, akkor szükségünk van egy olyan programra, amely 
az egyes funkciók programjait hívja. Ez a főprogram. A főprogram 
vezérlési funkciót lát el. Valamilyen algoritmus szerint kiválasztja, 
hogy melyik programot kell behívni, majd ezt behívja. A program lefut, 
és ezzel feladatát befejezi. Ekkor a vezérlést vissza kell adni a főprog- 
ramnak, hogy az újabb funkciók végrehajtását vezérelhesse. Minden 
funkció programjának végén ezért el kell helyezni a főprogramot hívó 
LOAD utasítást (89. ábra). 


Programrendszer- Végrehajtási 


szerkezet sorrend 
FŐPROGRAM FŐPROGRAM 


k 8 p.N8 
részfeladat részfeladat 


89. ábra. Főprogramot tartalmazó szerkezet 


1.részfeladat [ ]12.részfeladat 


A főprogram ismét lehetőséget kap, hogy újabb feladat végrehajtását 
vezérelje. Ez a fajta vezérlési szerkezet ott használatos, ahol a felhasz- 
náló dönti el, hogy milyen funkciót kell végrehajtani. Például egy rak- 
tári készletnyilvántartó rendszer funkciói az anyagbevételezés, az anyag- 
kiadás, a készletkiírás stb. lehetnek. A részfeladatot a raktáros jelöli ki 
az igények alapján. Ilyenkor a főprogram egy , menüt" ír ki, hogy 
a felhasználó láthassa, milyen műveletek közül választhat. Látható, 
hogy a főprogram a főmodulhoz hasonló szerepet tölt be, de önálló 
programként. 
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13. ADATÁLLOMÁNYOK 
ÉS LÉTREHOZÁSUK 


Az adatállományok jellemzői. 
A 9. feladat LETRE nevű létrehozó programjának elkészítése 


Nagy mennyiségű összetartozó adat tárolására két lehetőség van: 


— programon belüli, 
— programon kívüli 


adattárolás. Az előző módszer szerint néhány száz egyed adatait lehet 
tárolni tömbben. A programon kívüli tárolás elvileg végtelen mennyi- 
ségű adat tárolására ad lehetőséget. Tényleges korlátot a rendelkezésre 
álló tárolóeszköz adattárolási kapacitása jelent. 

Adatokat programtól függetlenül adatállományokban lehet tárolni. 
Az adatállomány valamilyen rendezettségben tárolt adatok összessége. 

Az adatállomány egyik legfontosabb jellemzője, hogy a programtól 
függetlenül létezik. Ez azt jelenti, hogy meglévő adatállomány haszná- 
latára bármikor készíthetünk újabb programokat, vagy már meglévőket 
törölhetünk. Mindezek a műveletek az adatállományt érintetlenül 
hagyják. Az adatállomány önálló létéből következik az is, hogy saját 
neve van. Ezt az adatállomány azonosítása teszi szükségessé. Ha ugyanis 
egy program egy adatállományt használni akar meg kell nevezni, hogy 
milyen adatokon kíván műveleteket elvégezni. A név azért is szükséges, 
hogy több adatállomány közül ki lehessen választani a szüksége- 
set. Az adatállományok nevének felépítése gépenként különbözik. 
A Commodore—64 esetében az adatállománynév 1—16 karakter hosz- 
szúságú szöveges változó lehet. 

Az adatállományok rekordokból épülnek fel. Egy rekord egy egyed 
tulajdonságainak értékeit tartalmazza egy mátrixsorhoz hasonlóan. 
A rekordon belüli adatok (egyedek tulajdonságainak értéke) neve itt 
a mező. Ezenkívül olyan mezőket is használunk, amelyek valamilyen 
adattárolási információt tartalmaznak, az egyedekhez pedig semmi 
közük. Ilyen adat például a rekord sorszáma. A mátrixos adattárolás- 
hoz hasonlóan a mezők sorrendje kötött a rekordon belül, hogy minden 
rekordot azonos elvek szerint lehessen feldolgozni. 

Az adatállományok külső tárolóegységen kapnak helyet, vagyis 
a táron kívül vannak. Az adatállományok kezelésénél a számítástechni- 
kában az a gyakorlat alakult ki, hogy az adatállományoknak csak egy 
vagy néhány rekordja van egy-egy alkalommal a gép tárjában, ha a re- 
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kordok adatai egymástól függetlenül feldolgozhatók. Ez a módszer 
azt eredményezi, hogy a feldolgozásban részt vevő adatok csak kevés 
helyet foglalnak el a tárban. 

Mielőtt azonban egy adatállomány rekordjaival bármilyen műveletet 
elvégezhetnénk, a gép és az adatállomány között kapcsolatot kell létre- 
hozni. Ezt a kapcsolatlétrehozást nevezzük az adatállomány megnyi- 
tásának. 

Csak ezután tudjuk a rekordokat a tárba beolvasni és adataival a mű- 
veleteket elvégezni. Az adatállomány feldolgozásának végén a gép és 
az állomány közötti kapcsolatot meg kell szüntetni, vagyis az adatállo- 
mányt le kell zárni. Az adatállomány feldolgozásának logikai menetét 
a 90. ábra mutatja. 

Az adatállományokkal kapcsolatos műveleteket három csoportra lehet 
felosztani: 


— létrehozás 

— feldolgozás 

— módosítás 

Logikailag az első művelet az adatállomány létrehozása. Ennek során 
a tárban létrehozott rekordokat a gép a külső adattároló berendezésre 


másolja. 
A feldolgozás során a rekordokban tárolt adatokat valamilyen 


. Adatállomány 


Megnyitás 


ADATÁLLOMÁNY — 
LÉTREHOZÁS, KIEGÉSZÍTÉS 


Rekord - 
létrehozás 
Rekordfelírás 


FELDOLGOZÁSI MŰVELET 


Rekord - 
beolvasás 

Rekord - 
feldolgozás 


Lezárás 


90. ábra. Műveletek adatállományokkal 
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műveletsorozat (például összesítés) elvégzésére használjuk fel. Ekkor 
a rekordokat a háttértárolóból be kell olvasni a gép tárjába, és ott kell 
elvégezni a feldolgozás lépéseit. A feldolgozás nem változtatja meg 
az adatállomány tartalmát. 

A harmadik műveletcsoportba tartoznak az olyan műveletek, ame- 
lyek az adatállomány tartalmát megváltoztatják. Ilyen művelet az adat- 
állomány kiegészítése, a rekordok törlése vagy a rekordok tartalmának 
megváltoztatása. 

Az adatállományon belül a rekordok valamilyen szempont szerint 
sorba rendezhetők a feldolgozás egyszerűsítésére. A rendezett sorrend 
bizonyos szempontból megkönnyíti a feldolgozást. 

Ilyen rendezett esetekkel itt nem foglalkozunk. Az egyszerűség ked- 
véért csak olyan adatállomány-feldolgozási műveleteket fogunk megis- 
merni, amelyekben a rekordok sorrendje tetszőleges. Ha a rekordok 
rendezetlenek, és csak a rekordok egy bizonyos csoportján kell vala- 
milyen műveletet elvégezni, akkor is minden rekordot be kell olvasni, 
hogy megvizsgáljuk, el kell-e végezni a műveletet rajta. Az ilyen adat- 
állományokat szekvenciális adatállományoknak nevezzük. Ezek legfőbb 
jellemzője, hogy feldolgozásuk esetén valamennyi rekordot be kell 
olvasni. Ez a tulajdonság nem jelent hátrányt akkor, ha valamennyi 
rekordot fel kell dolgozni. Például, ha az adatállomány egy vállalat 
dolgozóinak bérelszámolási adatait tartalmazza, és a hó végén vala- 
mennyi dolgozó adatait fel kell dolgozni a bérük meghatározásához. 
Ekkor a rekordok tárolási sorrendje közömbös. De ha az a feladat, hogy 
ugyanebben az adatállományban egyetlen dolgozó béradatát keressük 
meg, akkor a tárolás rendezettsége komoly segítséget jelenthet a kivá- 
lasztott rekord megtalálásában. A rendezetlenség sok felesleges beolva- 
sást okozhat, ami időigényes. 

Az adatállománynak még két fontos tulajdonsága: kezdete és vége 
van. Szekvenciális adatállományok feldolgozása az állomány elején 
(az első rekordnál) kezdődik, és az állomány utolsó rekordjánál feje- 
ződik be. 


AZ ADATÁLLOMÁNYOK LÉTREHOZÁSA 


Az eddig leírtak értelmében adatállományok a következő lépésekben 
hozhatók létre: 


— megnyitás (kapcsolatlétesítés) , 
— adatállományra írás, 
— lezárás. 


Létrehozásnál mindig egy új adatállományt kell megnyitni írásra. Erre 
szolgál az OPEN utasítás: 


x OPEN /, 8, /, "O: név, S, W" 
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ahol 


i — az adatállomány logikai hivatkozási száma, 

8 — a lemezegység száma, ki 

fi — a csatornaszám (amelyen a kapcsolatot létrehozzuk), 
név — az adatállomány neve, 

S — a szekvenciális jelleg rövidítése, 

Ww — utalás az írásra való megnyitásra. 


Az utasítás hatására a program megnyit egy új adatállományt, amelynek 
neve a megadott név lesz. Az adatállomány lemezen jön létre, mivel 
a 8 és 9 egységszám lemezegységet jelent. A program további részében 
az adatállományra nem a nevével, hanem a logikai hivatkozási számával 
(/) hivatkozunk. A logikai hivatkozási szám a változónévhez hasonlóan 
egyedi, több állományhoz különböző hivatkozási számokat kell meg- 
adni. Ez leegyszerűsíti az írási és a lezárási műveletet. 

A csatornaszám tetszőlegesen 2—14 lehet. A mi szempontunkból 
egyszerű, ha a logikai hivatkozási számmal megegyező csatornaszámot 
használunk. Az ilyen utasítással létrehozott adatállományra csak írha- 
tunk, más művelet nem végezhető. 

A megnyított adatállományra a következő utasítással írhatunk: 


x PRINT$7,AZ" S" GB;... 


Ez a már ismert PRINTf$ utasítás, amikor is az utasítás tárgyában lévő 
adatokat nem a képernyőre kell kiírni, hanem a 3t jel után megadott 
logikai hivatkozási számú adatállományra. Az utasítás tárgyában a re- 
kord mezőit (a rekordot alkotó adatok) kell felsorolni, és közéjük 
a vesszőt (mező-elválasztójel) idézőjelbe írva kell az adatállományra 
kiírni. Egy utasítással egy rekordot lehet az adatállományra felírni. 
Az állomány létrehozása után az állományt az 


x CLOSE / 


utasítással le kell zárni. Ezután az adatállományon további művelet 
nem végezhető, csak egy újabb megnyitás esetén. Az utasításban sze- 
replő / az adatállomány logikai hivatkozási száma. 


9. feladat 


Egy raktár anyagnyilvántartását kell számítógépen elvégezni. A számítógépes rend- 
szernek az alábbi szolgáltatásokat kell nyújtania: 


— kívánságra ki kell írni a raktárban lévő anyagok készletét (dátum, azonosító, 
anyagnév, mennyiségi egység, mennyiség, elszámolóár, érték) a nyomtatón; 

— anyag be- és kivételezés esetén a változásokat át kell vezetni a tárolt készlet- 
adatokon, és anyagonként be- és kivétjegyet kell előállítani (dátum, azonosító, 
anyagnév, ki- vagy bevett mennyiség). 
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A raktárban 500-féle anyag van, Az anyagok azonosítója ötjegyű szám, a megneve- 
zés legfeljebb 20 karakterből áll. A mennyiség egész szám, legnagyobb értéke 99999. 
Az anyagok elszámolóára 1000 Ft alatt van, fillért nem tartalmaz. 


A feladat elemzése 


A feladat értelmében elkészítendő rendszernek egy: raktár anyagnyilvántartásával 
kapcsolatos szolgáltatásokat kell elvégeznie. A rendszernek huzamosabb ideig kell 
szolgáltatásait nyújtania a raktári munka rendjének megfelelően. Az egyes szolgál- 
tatások (készletjelentés, bevét, kivét) igénybevételének sorrendje, száma tetszőleges 
lehet a felhasználó kívánságának megfelelően. 

A feladat elvégzéséhez 500-féle anyag adatait kell tárolni. A készletjelentés és 
a mozgásokat tartalmazó bizonylatok elkészítéséhez a következő adatok szük- 


ségesek: 


— dátum, 

— anyagazonosító, 

— anyagnév, 

— mennyiségi egység, 

— mennyiség, 

— elszámolóár, 

— érték, 

— ki- vagy bevett mennyiség. 


Nézzük meg, mit kell tenni azért, hogy ezek az adatok a programrendszer rendel- 
kezésére álljanak! 

A dátum aktuális adat, amely. minden szolgáltatáshoz szükséges. A kiírások előtt 
be kell olvasni, mivel kiszámítását automatizálni nem lehet. Tárolása csak az éppen 
futó programon belül oldható meg. 

A többi adatról könnyű felismerni, hogy egy egyedtípus tulajdonságai. Az egye- 
dek a raktárban tárolt anyagféleségek. A rendszerben az egyedek alábbi tulajdon- 
ságainak értékeit használjuk: 


— anyagazonosító, 

— anyagnév, 

— mennyiségi egység, 

— mennyiség, 

— elszámolóár, 

— érték, 

— ki- vagy bevett mennyiség. 


Az egyes anyagokra vonatkozóan az alábbi adatokat kell biztosítani: az ötjegyű 
szám (ciklusszám), amely az anyagok azonosítását szolgálja. Az anyagnév nem 
biztonságos azonosító, mivel szöveges adat, és ugyanazt az anyagot többféleképpen 
lehet megnevezni. A kiíráshoz viszont az anyagnév szükséges, mivel ez , emberibb 
adat", mint az azonosítószám. Szükség van még a mennyiségi egység (KG, DB, M) 
tárolására és természetesen az aktuális mennyiségre. Az anyagok készletértékének 
meghatározásához a mennyiség mellett szükség van az elszámolóárra (egységárra) is. 
Ebből a két adatból a készletérték bármikor kiszámítható, ezért tárolása szükség- 
telen. A ki- és bevett mennyiség egy anyagmozgáshoz kapcsolódik, amelyről azonnal 
bizonylatot kell készíteni. Erre az adatra a továbbiakban nincs szükség, ezért a bi- 
zonylat elkészítése után törölhető. Ezzel az adattal kell a készletmennyiséget 
is módosítani minden mozgás után. 
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Ebből következik, hogy hosszú távon a következő adatokat kell tárolni minden 
anyaghoz: 


— azonosító (5 bájt), 

— név (20 karakter), 

— mennyiségi egység (2 karakter), 
— mennyiség (5 bájt), 

— elszámolóár (5 bájt). 


(A numerikus adatok tárolása egységesen 5 bájtot igényel a megadott nagyságrendű 
számok esetében.) Ez anyagonként 37 bájt, összesen pedig 18 500 bájt. Ez az adat- 
mennyiség programon belül nem tárolható, ezért az adatokat adatállományban kell 
elhelyezni. Ezt támasztja alá az a jogos igény is, hogy a rendszernek huzamosabb 
ideig tárolnia kell az adatokat a gép többszöri ki- és bekapcsolása mellett. 

A rekordokon belül az adatokat a felsorolás szerint tárolhatjuk. Ezek alkotják 
a rekord mezőit. Az adatállomány neve legyen ANYAG. 

Hogyan kell működnie a rendszernek? A rendszer 3-féle szolgáltatást nyújt: 


— készletjelentés-készítés, 
— bevételezés, 
— kiadás. 


Az egyes szolgáltatások sorrendje tetszőleges, és egymástól! függetlenül bármikor 
igénybe vehetők. Ez két megoldási lehetőséget sugall. Annyi programot kell készí- 
teni, ahány szolgáltatás van, és azt kell futtatni, amelynek szolgáltatására szükség van. 
Ez meglehetősen nehézkes. A másik megoldás, hogy egyetlen programot kell elindí- 
tani, amely a felhasználónak egy menüben kínálja a szolgáltatásokat. Ennek leggya- 
koribb formája, hogy a program a képernyőre kiírja az összes szolgáltatást, és 
a szolgáltatások elé vagy utánuk egy számot is kiír, jelezve, hogy mit kell beírni 
a szolgáltatás elvégzéséhez. 


Például: 
(1) KESZLETJELENTES 
(2) BEVETELEZES 
(3) KIADAS 
(4) BEFEJEZES 


A menüben a befejezés kiválasztására is lehetőséget kell adni. A menü mindaddig 
a képernyőn marad, amíg a felhasználó nem igényli valamelyik műveletet. A műve- 
let végrehajtása után ismét ki kell írni a menüt, hogy a felhasználó végrehajthassa 
a következő kívánt tevékenységet. Ezt a vezérlési technikát láthatjuk a 91. ábrán. 


91. ábra. A menü vezérlése 
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Látható, hogy a rendszernek öt fő funkciót kell megvalósítania: 


— menükiíírás, 

— készletjelentés-készítés, 
—. bevételezés, 

— kiadás, 

— befejezés. 


A feladat egy programmal is megvalósítható, azonban nyilván túl nagy lenne, ezért 
minden funkciót érdemes külön programozni. A befejezés nem érdemel önálló 
programot, ezt a feladatot a menüprogram valósítja meg. 

Az egész rendszer működésének alapfeltétele a raktári anyagok adatait tartal- 
mazó adatállomány megléte. Az adatállományt a rendszer üzemszerű működtetése 
előtt valamilyen időpontbeli állapot szerint létre kell hozni. A létrehozást csak 
egyszer kell végrehajtani. 

Ebben a részben az adatállomány létrehozásához szükséges programot készítjük 
el, a következő részben folytatjuk az elemzést, és az anyagkiadási funkció program- 
ját készítjük el. 

Az adatállomány-létrehozó program feladata az, hogy a raktár 500 anyagának 
adatait (anyagonként 5 adat) a kialakított rendszer szerint egy adatállományba 
írja be. A legegyszerűbb megoldás, hogy az adatokat a billentyűzeten adjuk be, és 
a program rekordonként írja be őket az adatállományba. Az adatbeolvasás és 
az állományra írás ciklust fog alkotni a programon belül. A ciklus befejezésének 
vezérlésére több lehetőségünk van: előre megkérdezzük a felhasználót, hogy hány 
rekord adatait kívánja bevinni. Ezután a ciklus végrehajtását számláljuk, és amikor 
eléri a kívánt számot, a ciklus ismétlése befejeződik. 

A másik lehetőség, hogy a program minden rekord bevitele után megkérdezi 
a felhasználót, folytatja-e még. A kérdésre adott válasz alapján lehet a ciklust foly- 
tatni vagy abbahagyni. Válasszuk az utóbbi módszert! Az adható válasz pedig 
legyen I a folytatásnál, N a befejezésnél. A kivitel előtt az adatállományt meg kel! 
nyitni, a ciklusbefejezés után pedig be kell zárni. A program szerkezetét a 92. ábra 
mutatja. 


A program tervezése 


A létrehozó program nyitási és zárási tevékenysége elég egyszerű ahhoz, hogy ne 
kelljen tovább bontani. A rekordolvasás és -írás — mint nevében is hordozza — két 
funkciót foglal magában: a ciklikusan végrehajtandó adatbeoivasást és az adat- 
állományra írást. Ezeket célszerű önálló moduloknak tekinteni. Az adatbeolvasási 
modul beolvassa a rekordok 5 adatát, az állományra író modul pedig az adatokat 
az ANYAG állományra írja. Ez a modul olvassa be a ciklus vezérlőadatát is. Ezzel 
a program végleges szerkezete kialakult (93. ábra). 


Rekord - 
olvasás/ írás 


Megnyitás lezárás 


92. ábra. A létrehozó program szerkezete 
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(1) 
Megnyitás 
(2) 
Adatbeolvasás 


A modulok tervezése 


Rekordolvasás (4) 
és irás lezárás 
, (3) 
Allományra írás 


93. ábra. A program moduljai 


(1) Megnyitás , 
A modul eljárás típusú, egyetlen művelete az ANYAG állomány megnyitása 
(94. ábra). 


(2) Adatbeolvasás 

A modul eljárás típusú. Bemeneti adatai a felhasználó által begépelt 5 adat, és ezek 
képezik a kimenetét is. A beolvasást a szokásos módon lehet végrehajtani. Célszerű 
olyan kiírást készíteni, amellyel a felhasználót segítjük a begépelésben. Hogy a fel- 
használónak ne kelljen számolgatni az anyagnév 20 karakterét, a beolvasó sor fölé 
kiírunk egy 20 karakter hosszúságú , mintát". Vagy például a mennyiségi egység 
beolvasásánál zárójelben kiírjuk, hogy milyen esetek lehetségesek (KG, DB, M). 
Egy anyag adatainak beolvasását mindig ,,tiszta"" képernyőn kezdjük. Ezért a modul 
első lépése a képernyőtörlés. Ne felejtsük el, hogy a név (N$) és a mennyiségi egy- 
ség (M$) szöveges adatok, a többi numerikus (94. ábra). 


(3) Állományra írás 
A modul eljárás típusú. Bemenete egy anyag 5 adata, kimenete az öt adatból álló 
rekord írása az ANYAG állományra. 

A modul első művelete az állományra írás. Ezután ki kell írni, hogy a felhasz- 
náló folytatja-e. Az N esetében a ciklus befejeződik, ellenkező esetben a (2) modult 
kell hívni (94. ábra). 


(4) Lezárás 
A modul eljárás típusú. Egyetlen művelete az ANYAG állomány lezárzása (94. ábra). 


A kódolás 


A rendkívül rövid és egyszerű programból néhány újszerű sort bemutatunk. Az állo- 
mányt ,,2" logikai hivatkozási és csatornaszámmal nyitjuk meg: 


70 OPEN 2, 8, 2, 70: ANYAG, S,W" 
Az adatállományra írásnál ne felejtsük ki a vesszőket: 


210 PRINT$2, A ; tü ; N$ gét ; M$ ; sti ;M; 9.8 ; AR 
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C1) modul SSE mesés esággalászé aal kulSNN NÉNI 1] 
KEZDES 


Képernyő - 


törlés 


Azonosító— 
beolvasás 


Név- 
beolvasás 


Mennyiségi 


egység beolvasás 


Mennyiseg- 
beolvasás 


Eiszám. ár- 
beolvasás 


Folytatás- 


beolvasás 


l 
] 
! 
l 
[j 
j 
j 
! 
I 
[e modur ] 


(4)modul 


94. ábra. A program folyamata 
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Némileg egyszerűsíthető az adatállományra írási utasítás akkor, ha a program elején 
egy szöveges változónak vessző értéket adunk, és a mezők közé ezt írjuk be: 


75 2$—-7," 
210 PRINT$2, A ;Z$;N$;Z$;M$;Z$;M;Z$;AR 


Adatállományok használatakor több segédfunkció iránt merül fel igény. A program 
készítője például szeretné tudni, hogy létrejött-e az állomány, és tartalma helyes-e. 
A létrehozásról legegyszerűbben úgy győződhetünk meg, hogy kiíratjuk a könyv- 
tárunk tartalmát (4. függelék). Az állomány tartalmát pedig csak akkor tudjuk 
megvizsgálni, ha kiíratjuk. Commodore—64 esetében erre közvetlen lehetőség nincs. 
Ezért kell írni egy kiíró programot is. Ha CP/M operációs rendszert használunk, 
akkor a TYPE paranccsal az állomány kilistázható. 


14. ADATÁLLOMÁNYOK FELDOLGOZÁSA 
ES MODOSÍTÁSA 

Az adatállományok feldolgozására szolgáló utasítások. 

Az adatállomány módosításának menete. 


A 9. feladat két további programjának (MENU és KIVETJ) elkészítése 


Az adatállományokban tárolt adatok feldolgozása a létrehozáshoz 
hasonlóan három lépésben végezhető el. A feldolgozás előtt az adat- 
áliományt meg kell nyitni, és egy logikai hivatkozási számot kell neki 
adni: 

x OPEN 7, 8,j, "0 : név, S, R" 


ahol 
i — a logikai hivatkozási szám, 
8 (vagy 9) — a lemezegység azonosítója, 
j — csatornaszám, 
név — az adatállomány neve. 


Az S és az R azt jelölik, hogy szekvenciális adatállományt kell olvasásra 
megnyitni. Felhívjuk a figyelmet, hogy szekvenciális állományt vagy 
írásra (létrehozásra), vagy olvasásra lehet megnyitni. A többi paraméter 
értelmezése megegyezik az adatállomány létrehozásánál bemutatottak- 
kal. Az utasítás hatására a gép megkeresi és olvasásra megnyitja a meg- 
adott nevű adatállományt. Az adatállomány a megadott logikai hivat- 
kozási számot kapja meg, és a továbbiakban ezzel hivatkozunk az olva- 
sási és lezárási utasításban az adatállományra. 

A megnyitott adatállományból az alábbi utasítással lehet egy rekor- 
dot beolvasni: 

x INPUTS 7, A, B, . . . 


Az utasítás hatására egy rekord beolvasása megy végbe, és a gép fölké- 
szül a következő rekord beolvasására. A beolvasás során a program 
a rekordban lévő értékeket az utasítás tárgyában felsorolt változóknak 
adja. A tárolt rekordban lévő mezőhatárokat az adatok közé beírt 
vesszők jelentik. Szöveges adat olvasásakor szöveges adatnevet kell meg- 
adni. Ha kevesebb változónevet (mezőnevet) adunk meg az utasításban, 
mint amennyi a rekordban van, akkor a gép a maradék részt nem olvassa 
be. Ellenkező esetben viszont a következő rekord mezőiben talált 
értéket adja az utasításban szereplő változóknak. 

Az állomány feldolgozása is ciklikusan megy végbe. Ez azt jelenti, 
hogy az adatállomány elejétől a végéig minden rekordot be kell olvasni. 
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Ha az utolsó rekord (állományvég) után még egyet akarunk olvasni, 
akkor hiba lép fel. Ezt nyilván el akarjuk kerülni. 

A Commodore—64 gépben van egy ST nevű állapotbájt, amelynek 
tartalma mindaddig nulla, amíg az utolsó rekordot be nem olvastuk. 
Az utolsó rekord beolvasása után az állomány elérésekor nullától el- 
térő értéket kap. A feldolgozást az ST értékétől kell függővé tenni. 
Amíg 


addig újabb olvasás végrehajtható. Ha a feltétel nem teljesül, akkor több 
olvasási műveletet nem szabad végrehajtani, mert elértük az állomány 
végét. Az olvasási ciklus általában hátul tesztelő. 

A rekord feldolgozása során az ST bájt értéke megváltozhat. Ezért 
tanácsos az ST bájt tartalmát rögtön az olvasás után átmásolni egy vég- 
jelző változóba: 


VJ-ST. 


A rekord feldolgozása után a VJ tartalmát kell vizsgálni, és ez alapján 
eldönteni, hogy kell-e folytatni a feldolgozást. Az olvasás végén az állo- 
mányt a már ismert utasítással kell lezárni: 


x CLOSE ; . 


Az adatállományok tartalmát a valóságban végbemenő változásoknak 
megfelelően módosítani kell. Hogyan módosíthatunk szekvenciális 
állományokat? A módosítás során azt akarjuk elérni, hogy egy vagy 
több rekord mezőinek tartalmát megváltoztassuk, vagy új rekordokat 
adjunk hozzá az állományhoz, illetve meglévőket töröljünk. Tudjuk 
viszont, hogy szekvenciális adatállományokat csak olvasásra tudunk 
megnyitni. Írásra meglévő állományt nem is lehet megnyitni, mert 
az írásra való megnyitás új állományt hoz létre. Ebből látszik, hogy 
közvetlenül nem tudjuk a módosítást végrehajtani. A módosítás úgy 
végezhető el, hogy a módosítandó (REGI) adatállományt olvasásra 
megnyitjuk, és emellett megnyitunk egy új (UJ) adatállományt is 
írásra. Ezek után a REGI állomány valamennyi rekordját beolvassuk, 
amelyeket módosítani szükséges, azt módosítjuk, és valamennyi módo- 
sított vagy nem módosított rekordot az UJ állományra írjuk fel. 

A művelet végén az új állomány tartalmazza a REGI állomány módo- 
sított változatát. Tehát célunkat részben elértük. Az egyedüli kellemet- 
lenség, hogy a művelet végén az állomány más néven szerepel. Ez azt 
eredményezné, hogy az adatállományt használó programokban az állo- 
mány nevét módosítani kellene. De szerencsére ezen is tudunk segíteni. 
Az UJ állomány nevét REGIl-re kell változtatni. Előbb azonban a már 
feleslegessé vált REGI állományt törölni kell. Ezután a névváltoztatás 
már végrehajtható, és ezzel a módosítás folyamata befejeződött 
(95. ábra). 
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95. ábra. A módosítás folyamata 


A létrehozás és feldolgozás műveletein kívül az adatállományokkal 
egyéb műveleteket is végre kell! hajtani: másolás, névváltoztatás, törlés, 
több állomány összekapcsolása stb. Ezeket a műveleteket az ún. parancs- 
csatornára kiadott utasításokkal lehet végrehajtani. Az állományokkal 
kapcsolatos műveleteket 3 lépésben kell végrehajtani: 


1. A parancscsatorna megnyitása 
2. A műveletre vonatkozó utasítás kiadása 
3. A parancscsatorna lezárása 


A parancscsatornát az 
OPEN 15,8, 15 


utasítással lehet megnyitni. A 15 a parancscsatorna száma. Az egyszerű- 
ség kedvéért a logikai hivatkozási számot is 15-nek vesszük. 

Az adatállományokkal kapcsolatos utasítások a parancscsatornára írt 
utasítások. A törlés utasítása: 


x PRINTZ 15, "SCRATCHO: név" 
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ahol 


SCRATCHO — a törlési művelet kulcsszava (50-val rövidíthető), 
név — a törölni kívánt állomány neve. 


Állománynevet a következő utasítással lehet megváltoztatni: 
x PRINT$ 15, "RENAMEO: új név — régi név" 
ahol 


RENAMEO — a névváltoztatási művelet kulcsszava (RO-val rö- 
vidíthető), j 


új név — az állomány új neve a művelet után, 
régi név — az állomány jelenlegi neve (a művelet előtt). 


A kívánt művelet elvégzése után a parancscsatornát le kell zárni: 
x CLOSE 15 


Az állományokkal kapcsolatos további műveletek a 4. függelékben talál- 
hatók. 


9. feladat (folytatás) 


Ebben a részben a MENU programot és az anyagkivételezési funkciót ellátó prog- 
ramot készítjük el. 


A feladatok elemzése 


A MENU program két feladatot lát el. Mivel ez a programrendszer kezdőprogramja, 
itt kell a menüt kiírni, majd be kell hívni a kiválasztott funkciót végrehajtó progra- 
mot (96. ábra). 


Az anyagkivételezést megvalósító programnak az a feladata, hogy a raktárból kivett 
anyag mennyiségével csökkentse az illető anyag készletét. Ehhez a programnak be 
kell olvasnia, hogy melyik anyagból mennyit vettek ki. Ezután az illető anyag kész- 
letét módosítani kell. Végül ki kell írni a kivét bizonylatot, és be kell hívni a MENU 
programot (97. ábra). 


A kivét bizonylatot sornyomtatón a következő formában kell elkészíteni: 


ANYAGKIVETELI JEGY 
Kelt: (EV, HO, NA) 
AZ ANYAG AZONOSÍTOJA: (RA) 
AZ ANYAG MEGNEVEZESE: (NS) 


MENNYISEGI EGYSEG: (MS) 
KIVETT MENNYISEG: (KM) 


ALAIRAS 
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(2) 
Programhívás 


96. ábra. A MENU program szerkezete 


ci) 
Menükiírás 


Kivét bizonylat 94 dést 


A program kezdetén ki kell írni a képernyőre, hogy a kivételezési funkció megy 
végbe (ANYAGKIVETELEZES). Ezzel tudja ellenőrizni a felhasználó, hogy jó 
gombot nyomott-e meg. 
Egy műveletet külön meg kell vizsgálnunk. 

Az anyagazonosító beolvasása után ellenőrizni kell, hogy van-e ilyen azonosítójú 
anyag az ANYAG állományban. Ha nincs, akkor a felhasználó vagy elgépelte 
az azonosítót, vagy rosszul tudja a cikkszámot. Az első esetben a hiba javítható, 
a másodikban nem rögtön. Ha azt az eljárást választanánk, hogy hibás azonosító 
beírása esetén az azonosító beolvasására mennénk vissza, akkor nem javítható hi- 
bánál lehet, hogy sohasem tudnánk befejezni a programot. Ez nyilván előnytelen, 
ezért előbb meg kell kérdezni a felhasználót, hogy ki tudja-e javítani a hibát. Ha 
igen, akkor visszamegyünk az azonosító beolvasására. Ellenkező esetben a program 
befejeződik. 


97. ábra. A KIVET program szerkezete 


A programok tervezése 


A MENU program moduljait nem célszerű tovább bontani. Azt jegyezzük meg, 
hogy a (3) modulban lévő programkiválasztás CASE szerkezetet alkot, mint 
a 6. részben bemutatott KESZL program menümodulja. 

A KIVET program moduljait érdemes szemügyre venni. Az első modulban kap 
helyet a művelet kiírása, majd az azonosító beolvasása következik. Rögtön ezután 
— még a mennyiség beolvasása előtt — ellenőrizni kell, hogy a begépelt azonosítójú 
rekord szerepel-e az ANYAG állományban. Ezt úgy lehet végrehajtani, hogy az adat- 
állomány valamennyi rekordjából beolvassuk az azonosítót, és összehasonlítjuk 
a begépelttel. Ha a kettő egyezik, akkor a további olvasásra nincs szükség, az állo- 
mány lezárható, és a program folytatható. Ha a program az állomány végéig nem 
talál a begépelttel egyező azonosítót, akkor az állományt le kell zárni, és a hibát ki 
kell írni. Majd meg kell kérdezni , hogy javítható-e a hiba. Ha igen akkor újabb olva- 
sás következik, ha nem, akkor a vezérlés a MENU hívásra kerül, a program befejező- 
dik. Vegyük észre, hogy a program akár talált, akár nem talált rekordot, a további 
műveletek előtt az állományt le kell zárni. Hogy tudjuk, melyik tevékenységcsopor- 
tot kell végrehajtani a lezárás után, fel kell venni egy T találatjelzőt, amelynek 
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értéke találat esetén 1, egyébként 0. Ennek értéke dönti el, hogy milyen lépés 
következik a zárás után. A T-t minden keresés előtt nullázni kell, hogy az előző 
értéke ne zavarja a következő folyamatot. Ebből látható, hogy az első modult cél. 
szerű további modulokra bontani (98. ábra). 

A következő művelet a kivett mennyiség beolvasása. Itt azt kell ellenőrizni, hogy 
van-e a kívánt mennyiség az anyagból. Ha nincs, akkor csak a meglevő mennyiséget 
lehet kiadni (a készlet nulla lesz), egyébként az igényeltet. Az első esetben egy 
üzenetet is ki kell írni, hogy a raktáros is tudjon a változásról. 

Hogy ne kelljen ismét végigolvasni az ANYAG állományt a mennyiség ellenőr. 
zésére, az azonosító ellenőrzésekor a mennyiséget is beolvassuk. Találat esetén 
az utolsónak beolvasott rekordban levő mennyiségi adat megmarad, mivel utána 
nem hajtunk végre újabb olvasást, ami a mennyiséget megváltoztatná. 

A következő lépés az ANYAG állomány módosítása. Ezt a módosításnál leírt 
lépésekben kell elvégezni. Az új állomány neve legyen ATM (átmeneti név). Módo- 
sításkor a módosított rekord előtti és utáni rekordokat változatlanul kell átmásolni. 
A kivett anyag rekordjában a mennyiség értékét a kivétnek megfelelően módosítva 
kell átírni. 

A kivét bizonylat készítése előtt meg kell nyitni a nyomtatót mint állományt, és 
a kiírást ezen kell elvégezni. A bizonylat kiírásához a talált rekord adatait kell fel- 
használni, majd ezután ezt az állományt le kell zárni. 

A program utolsó modulja a MENU hívás (98. ábra). 


A modulok tervezése 
A MENU program moduljai 


(1) MENU kiírás 
Eljárás modul. Kimenete a 13. részben bemutatott formájú menü kiírása (99. ábra). 


KIVET 
Anyag. mennyiség C4) (5) 
beoivasás Módosítás Kivét bizonylat 


(1) (2) , (3), 
cgieppyétst FRETT Azon.beolvasás Mennyiség- 
Cimkiiras és ellenőrzés beolvasás 
/ 


(6) 
Menühívás 


98. ábra. A KIVET program terve 
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KEZDÉS 


Funkciókód- 


beolvasás 


KIVET hívás 


99. ábra. A MENU program folyamata 


(3) Programhívás 

A modul eljárás típusú. Bemeneti adata a kiválasztott funkcióhoz tartozó szám 
beolvasása. Kimenete a kiválasztott feladatot megvalósító program hívása. A progra- 
mok hívása előtt a változók tartalmát CLR utasítással nullázni kell (99. ábra). 


A KIVET program moduljai 


(1) Címkiírás 
A modul eljárás típusú. Kimenete az "ANYAGKIVETELEZES" cím kiírása 
(100. ábra). 


(2) Azonosító beolvasása és ellenőrzése 

A modul eljárást valósít meg. Bemenete a felhasználó által begépelt azonosító és 
az ANYAG állomány azonosítói. Kimenete egy vezérlés vagy a modul elejére, vagy 
a (6) modul hívása. 
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A modul kezdetén be kell olvasni annak az anyagnak az azonosítóját (AA), 
amelyből kivesznek. Ezután a találatjelzőt nullázni kell, majd meg kell nyitni 
az ANYAG állományt, és minden rekordból az első négy adatot be kell olvasni: 


— azonosító (RA), 

— név (N$), 

— mennyiségi egység (M$), 
— mennyiség (M1). 


Minden beolvasás után át kell másolni az ST bájt értékét: 


VJ-ST, 


és ellenőrizni kell, hogy elértük-e a keresett rekordot: 


AA—- RA. 


Ha a feltétel teljesül, akkor előbb a T — 1 értékadást kell végrehajtani, majd a zá- 
rásra kell ugrani (a további olvasástól eltekintünk). Ha a feltétel nem teljesül az állo- 
mány végéig (VJ - 0), akkor a keresés véget ér, és az állományt le kell zárni. 

A további műveleteket a T határozza meg. Ha 


T-—1, 


akkor a modul befejeződik (megtaláltuk a keresett rekordot), és a (3) modul 
hajtódik végre. 
Ha 


T-O, 

akkor a javíthatóságot kell megkérdezni (JA $). 
Ha 

JA$-I, 


akkor a modul kezdetére kell visszatérni az újabb beolvasásra. Ellenkező esetben 
a (6) modul (befejezés) következik (100. ábra). 


(3) Mennyiségbeolvasás 
A modul eljárás típusú. Bemeneti adata a kivenni kívánt mennyiség. Kimenete pedig 


a kiadható mennyiség. 
A modulban előbb a kivenni kívánt mennyiséget (KM) kell beolvasni, majd meg 


kell vizsgálni, hogy a mennyiség kiadható-e-- 
Mi: KM. 


Ha a feltétel teljesül, akkor az "A MENNYISEG KIADHATO" üzenet kiírása után 
a maradék mennyiség kiszámítása következik a közös ágban: 


MM — M1-KM . 


Ellenkező esetben csak M1 mennyiség adható ki, és azt a "CSAK M1 ADHATO KI!" 
üzenettel tudatni kell a felhasználóval. Ezután a kiadott mennyiséget módosítjuk: 


KM — M1 . 
Ezután a közös ágban a maradékot számítjuk ki (101. ábra): 
: MM — M1-KM . 
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(1) modutj ET Ra ET s aszesspg űj 
KEZDÉS ) 


(2) modult] JEGÉN GEzlSSallSÉSNNN GYÉNNÉNENS SÉKTÉNESÉKENÁNNSÉNNE -1 


AA 
beolvasás 


p———————————————————— 


: (3) modul C€6) modul 
100. ábra. Az (1) és (2) modul folyamata 
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(4) Módosítás 

A modul eljárás típusú. Bemenete a csökkentett mennyiségű anyag azonosítója, 
a maradék mennyiség és az ANYAG állomány. Kimenete a módosított ANYAG 
állomány. 

A modulban először meg kell nyitni a módosításhoz szükséges két állományt 
(ANYAG, ATM), majd elkezdődik a másolási ciklus. Minden beolvasással be kell 
olvasni a teljes rekordot, de a kereséstől eltérő névvel, hogy a kivételezett anyag 
adatait ne veszítsük el. Itt ezért az A2, N2$, M2$, M2, AR mezőneveket használjuk. 
Meg kell vizsgálni, hogy megtaláltuk-e a keresett rekordot. Ha nem, vagyis 


A2A7 AA, 

akkor a rekordot változatlanul az ATM-re írjuk. Ha megtaláltuk, tehát 
A2- AA, 

akkor az M2 értékét MM-re (maradék) módosítjuk: 
M2—- MM , 


és ezután hajtjuk végre a kiírást. A művelet ciklusába az ANYAG nevű állomány 
végének figyelését is be kell építeni. Ha az átmásolás befejeződik, mindkét állo- 
mányt lezárjuk. Előbb az ANYAG-ot töröljük, majd az ATM nevét ANYAG-ra 
változtatjuk. Ezzel a módosítás befejeződik (101. ábra). 


(5) Kivét bizonylat 

A modul eljárás típusú. Bemeneti adatai a bizonylat elkészítéséhez szükséges ada- 

tok: az itt begépelt dátum, valamint az anyagazonosító, az anyagnév és a kivett 

mennyiség a (2) és a (3) modulokból. Ezek az adatok képezik a modul kimenetét is. 
A modulban először meg kell nyitni a nyomtatót, és ezután ki kell írni a kivét 

bizonylatot. A bizonylat kiírása után a nyomtatót le kell zárni. Ezzel a modul be is 

fejeződik (102. ábra). 


(6) MENU hívás 
A modul eljárás típusú. Egyetlen művelete a MENU program hívása. Nem szabad 
elfelejteni, hogy a hívás előtt a változók tartalmát nullázni kell (102. ábra). 


A programok kódolása 


A KIVET program kódjából bemutatunk néhány szakaszt. Ha az azonosító hibás 
volt, akkor ezt ki kell írni, utána kell a javíthatósági kérdést feltenni. 

£€50 PRINT"HIBAS AZ AZONOSITO!" 

259 PRINT 

270 INPFUT"JAVITHATO ? (I/N2 "7JAS 


A (4) modul végén a , régi " ANYAG állomány törlése és az ATM nevének módosí- 
tása előtt a parancscsatornát meg kell nyitni, a műveletek után pedig le kell zárni. 
559 OPENI5.8,15 
569 PRINTHIS,"  SD:ANYAG" 
57ú PRINTHIS,"RO:ANYAG-ATM" 
580 CLOSE15 
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(2) modul 


(3) modul 
KM 
beolvasás 


igen 


M15KM 


I 
I 
l 
l 
] 
! Csökk.kiadás 
l 
l 
l 
j 
j 
l 


"Kiadható" 
üzenet 


Maradék 
kiszámítása 


(4)modul 
ANYAG, ATM 
nyitás 


ANYAG rekord 
beolvasás 
V3-ST 


a— 


igen 


M2 z MM 


igen LG - 85 


. 
nem 
, 
nem 


e 
ATM 
rekord iras 
e 


ATM, ANYAG 
lezárás 
ANYAG törlés 
ATM —- ANYAG 


l 
l 
j 
j 
j 
I 
I 
! 
l 
! 
! 
j 
l 
! 
! 
l 
l 
! 
l 
j 
l 
l 
e 


(5) modul 
101. ábra. A (3) és (4) modulok műveletei 
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(4) modul 


forog] "1 
l ! 
j Nyomtató- ! 
j megnyitás 
j l 
I Bizonylat- ! 
l kiírás : 
Nyomtató- j 
] lezárás I 
koma] eg 
(2) modul ] 1 
MENU ] 

l (2) modul hívás 
I I 
j j 
I 
! l 
[SS e össze esz J 


102. ábra. Az (5) és (6) modulok műveletei 


Értékelés 


A bemutatott eljárás pontosan végrehajtja a feladatot. A rendkívül gyakori adat- 
állomány-másolás és -törlés a működést lassúvá teszi, és a lemez helytelen működését 
idézheti elő. Ezért időszakonként (naponta vagy másnaponként) , rendet" k-Il tenni 
a lemezen, az összes hibás állományt ki kell törölni. Ezt a VALIDATE paranccsal 
végezhetjük el. 

A VALIDATE parancsot is a parancscsatornára kell kiadni. 


OPEN 15, 8, 15 : PRINTJÉ 15, "VALIDATE" 
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Ellenőrző kérdések és feladatok 


1. Mi az adatállomány előnye a tömbbel szemben? 

2. Ha a 9. feladat 500-féle anyagából valamelyikről meg kell mondani, hogy van-e 
belőle, akkor hogyan kellene rendszerezni az anyagok rekordjait, hogy gyorsan 
megtaláljuk a keresett rekordot? 


3. Alakítsuk át a 9. feladat programjait úgy, hogy egy vezérlőmodul irányítsa a szub- 
rutinokként kódolt modulokat! 


4. Készítsünk programot, amely az anyagok tárolt adatait egy-egy sorba táblázatos 
formában kiírja! 


5. Készítsük el az anyagbevételezést végrehajtó programot, és illesszük be a meglévő 
rendszerbe! ú 


6. Készítsük el a készletjelentést kiíró programot, és ezt is illesszük be a meglévő 
rendszerbe! 


7. Miért nem lehet adatállományt LIST parancssal kiíratni? 
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15. GRAFIKAI LEHETŐSÉGEK 


A foltábrázolási lehetőség alkalmazása a Commodore—64-en. 
A 170. feladat megoldása 


Minden számítógéppel lehet ábrákat rajzoltatni akár a terminál kép- 
ernyőjére, akár a nyomtató felhasználásával. A legegyszerűbb és 
, legrégibb" módszer az írógépszerű rajzkészítés. A rajzolandó ábrát 
sorokra bontjuk, és a sorokban olyan karaktereket jelzünk vagy nyom- 
tatunk ki, amit az ábra megkíván. A sötétebb pontokra például M betűt, 
a világosabbakra-pontot (vagy semmit) írunk. Ezekből a karakterekből 
végül is jól-rosszul kialakul a rajzolni kívánt ábra. Persze elég nagy mé- 
retre fel kell nagyítani készítéskor, hogy felismerhető legyen. Mindez 
elég sok apólékos munkával jár, hiszen pontonként kell az ábrát elké- 
szíteni, és ez alapján kell a programot is megírni. Egyszerű vonalas ábrák 
viszonylag egyszerűen elkészíthetők, de kontrasztos rajzok csak nehéz 
munkával. 


A legtöbb személyi számítógépnek van valamilyen önálló rajzolási 
lehetősége, ami a fenti módszernél valamivel egyszerűbb és rajzszerűbb 
eredményt szolgáltat. Sajnos ezek gépenként különböző alapelvre 
épülnek, ezért nem tárgyalhatók egységesen, mint a BASIC nyelv. Itt 
a Commodore—64 folt-(sprite-) készítés technikáját használjuk fel az egy- 
szerű statisztikai diagram megjelenítéséhez. 

A Commodore-on van más rajzolási lehetőség is. Ez az ún. grafikus 
jelekkel való rajzolás. A grafikus jelek egy karakternyi területen víz- 
szintes és függőleges vonalakból vagy fehér és fekete foltokból, vagy 
egyszerű figurákból (pl. szív) álló rajzos , építőkövek", amelyekből 
táblázatokat, egyszerű figurákat vagy színes területeket lehet összerakni. 


Más gépeken más jellegű rajzolási lehetőségek vannak. Elsősorban 
a vonalas ábrák rajzolása terjedt el. A rajzolás általában miden gép 
BASIC-jében másképpen működik. Ennek az az oka, hogy a BASIC 
oktatási célra tudományos számítások és egyszerű adatfeldolgozási fel- 
adatok megoldására készült, a grafikus lehetőségek később alakultak ki, 
s ezt a részt minden gyártó saját maga dolgozta ki, ezért a grafikai részek 
jelentősen eltérnek egymástól. 

A foltrajzolás azért érdekes, mivel ez nemcsak statikus ábrák, hanem 
mozgó rajzok készítésére is alkalmas. Ebben a részben a foltrajzolásnak 
csak az alapjait rakjuk le. Az itt elsajátított ismeretek alapján mozgó 
ábrákat már nem nehéz készíteni. 
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A foltrajzolás technikájának elsajátításához mélyebben , bele kell 
bújni" a számítógépbe, mivel ehhez nincsenek külön BASIC utasítások, 
hanem a meglévőket használjuk fel, amelyek nyilván nem rajzolásra 
orientáltak, ezért a gépi tulajdonságokat közvetlenebbül kel! alkalmazni. 

Előbb azonban ismerjünk meg egy új utasítást és egy új függvényt! 
A számítógép tárjában lévő adatok bájtonként címezhetők, vagyis egy 
bájt tartalmát egy művelettel lehet kiolvasni vagy új értéket beleírni. 
1 bájt 8 bitből áll, egy bit pedig egy kétállapotú áramköri elem. A két 
állapotot 0-val és 1-gyel jelöljük. Egy bájt tartalmát az határozza meg, 
hogy az őt alkotó bitek milyen állapotban vannak. Egy bájtnak 256-féle 
értéke lehet a bitek helyzetétől függően. A tár egy bájtjába íráskor a gép 
a bájt bitjeit állítja be az adatnak megfelelően. A bájt kiolvasásakor 
pedig azt nézi meg, hogy milyen állapotban vannak a bitek. 

A foltrajzoláshoz nemcsak a bájtok tartalmát kell vizsgálni vagy 
módosítani, hanem a bitekét is. A bitekhez azonban nem tudunk hozzá- 
férni, csak a bájtokhoz. Amikor tehát biteket kell állítanunk, akkor 
mindig 8 bitet, azaz 1 bájtot kell állítani, mivel csak ilyen utasí- 
tásunk van. 

Egy bájtba a POKE utasítással lehet valamilyen adatot beírni: 


x POKE cím, tartalom 


A cím a tárban címezhető valamelyik bájt címe (0—65535), a tartalom 
pedig egy 0—255 közötti decimális szám. Tegyük fel, hogy a bájt jobb 
oldali szélső (legalacsonyabb helyértékű) bitjébe 1-et és innen kezdve 
minden második bitbe ugyancsak 1-et kell beírni (103. ábra). 

Ezt így, ilyen formában nem tudjuk a POKE utasításban ábrázolni, 
mivel ott csak decimális szám adható meg. Ezért a bájtban lévő bite- 
ket helyértékes bináris számnak tekintjük, és ennek megfelelően átkó- 
doljuk decimális számmá a 103. ábrán látható rendszer szerint. Ha tehát 
ezt a bitkombinációt akarjuk beírni, akkor a tartalomhoz 85-öt kell 
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beírni. Ha csupa nullát akarunk, akkor 0-t, ha csupa 1-et akarunk, 
akkor 255-öt kell megadni. 

A tár valamelyik bájtjának tartalmát egy függvénnyel tudjuk ki- 
olvasni: 


x A-—PEEK (cím) 
A kiolvasott érték mindig egy 0—255 közötti decimális szám. 


Ezek után térjünk át a foltrajzolás technikájára! Először is azt kell 
tudnunk, hogy a Commodore—64 a képernyőt vízszintes irányban 320, 
függőleges irányban pedig 200 pontra bontja fel. Rajzoláshoz ezt a lehe- 
tőséget használjuk fel. A folt ezeknek a pontoknak egy együttese. Ezek 
a pontok, illetve a folt maga lehet egy ábra vagy egy ábrarészlet. A folt- 
hoz egy bitekből álló mátrix tartozik a tárban. A folt minden pontjához 
a mátrix egy bitje tartozik. Hogy ez pontosan mit jelent, a későbbiek- 
ben fogjuk látni. 

Egy folt a képernyőn vízszintes irányban 24, függőleges irányban 21 
pontot foglal magában (összesen 504 pont). A folt a képernyő bárme- 
lyik részére elhelyezhető. Egy folt pontjai azonos vagy legfeljebb 3 el- 
térő színben jeleníthetők meg. A képernyőn egyszerre 8 folt jeleníthető 
meg 16 különböző színben. Ezek ki- és bekapcsolhatók, azaz megjelenít- 
hetők és eltüntethetők. A foltokat mind vízszintes, mind függőleges 
irányban kétszeresre lehet nagyítani és vissza is lehet állítani. Továbbá 
a foltokat mozgatni, ütköztetni stb. lehet, de ezekkel a lehetőségekkel 
itt most nem foglalkozunk. 

A folt alakját a szerint az elv szerint lehet elkészíteni, hogy a megjele- 
nítendő ponthoz tartozó bitnek 1 értéket adunk. A háttér színét felvevő 
pontok (nem látható pontok) bitjeinek értéke O lesz. A foltban lévő 
ábrát a 104. ábrán látható segédeszközzel készíthetjük el. Az ábra azt is 
mutatja, hogy 1 sor 24 pontját 3 bájt tartalmazza. Az 504 pontot össze- 
sen tehát 63 bájtba lehet elhelyezni. A kezelés megkönnyítésére 64 báj- 
tos egységeket használunk fel a foltok definiálására. A bájtok sor- 
számozása: 


1.sor  0.bájt 1.bájt 2. bájt 
2.sor  3.bájt  4.bájt 5. bájt 


20.sor 60.bájt 61.bájt 62. bájt 


Egy folt tehát 64 bájtot foglal le a gép tárjában. A foltmutató bájtok 
tartalmazzák, hogy ez a 64 bájtos egység hol található a tárban. Ezekből 
összesen 8 van a 8 megjeleníthető folthoz, a következő rendszerbe fog- 
lalva: 
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A folt sorszáma A foltmutató bájt címe 


2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 


N9ns5wWN-O 


A foltmutatóban lévő szám mutatja meg, hogy a tár hányadik 64 bájt 
hosszúságú egységében található a foltdefiníció. Természetesen nem 
lehet akárhová elhelyezni egy foltot, mivel a tárban lévő bájtok egy 
részét a gép saját maga használja. Ezt táblázat alapján ellenőrizhetjük. 
Jól használható például a BASIC programoknak fenntartott tárterület 
hátsó" része, ami még közepes hosszúságú programok esetében is 
szabad marad. A programoknak fenntartott terület a 2048-as és 
40959-es címek között helyezkedik el. Ha 10000 bájt helyet hagyunk 
a programnak, akkor a 192x64—12288-as címen kezdhetjük a foltok 
tárolását. Ha például a 0. folt definícióját ettől a címtől kezdve kívánjuk 
elhelyezni, a 2040-es bájtba 192-t kell beírni: 


10 POKE 2040, 192 


Ha az 1. folt definícióját a következő 64 bájtra akarjuk elhelyezni, 
akkor a 
20 POKE 2041, 193 


utasítást használjuk. Az 1. folt definíciója tehát a 12352-es (19364) 
címen fog kezdődni. 

Ahhoz, hogy a folt megjelenjen a képernyőn, be kell kapcsolni, 
illetve ha nem akarjuk mutatni, akkor ki kell kapcsolni. 

A foltokat az 53269 című bájt megfelelő bitjeinek 1-be állításával 
lehet megjeleníteni (bekapcsolni). A foltot úgy tudjuk eltüntetni a kép- 
ernyőről, hogy a hozzá tartozó bitet 0-ra állítjuk (105. ábra). 

Ha például csak a 4. foltot akarjuk bekapcsolni, akkor 16-ot kell beírni 
a bekapcsoló bájtba: 
100 POKE 53269, 16 


Foltsorszámhoz tartozó bitek 105. ábra. Foltok be- és kikapcsolása 
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A foltokat 16 különböző színben lehet megjeleníteni. Minden folthoz 
tartozik egy színbájt, amelynek tartalma határozza meg a folt színét: 


A folt sorszáma A színbájt címe 

0. 53287 

1. 53288 

2. 53289 

16 8 53290 

4. 53291 

5. 53292 

6. 53293 

7. 53294 

A színeket a következő értékek beírásával állíthatjuk be: 
Szín Színbájt tartalma 

fekete o 
fehér 1 
piros 2 
ciánkék 3 
bíbor 4 
zöld 5 
kék 6 
sárga 7 
narancs 8 
barna 9 
rózsaszín 10 
sötétszürke : 11 
középszürke 12 
világoszöld 13 
világoskék 14 
világosszürke 15 


Egy foltot nemcsak egy színben lehet megjeleníteni, hanem több szín- 
ben is. Egy folton belül összesen három színt lehet használni színezésre. 
A foltok mérete mind függőleges, mind vízszintes és mindkét irányban 
is megkétszerezhető. A vízszintes irányú kétszerezést az 53277 című 
bájt megfelelő bítjeinek 1-re állításával érhetjük el. A bitek és a foltok 
párosítása ugyanúgy történik, mint a bekapcsoló bájtnál. A függőleges 
irányú kétszerezés pedig az 53271 című bájt megfelelő bitjeinek beállí- 
tásával érhető el. 

Foltot a képernyőn tetszés szerinti helyre állíthatunk. A foltbeállítás 
a legfelső sor és a bal szélső oszlop helyzetének megadásával végez- 
hető el. 

Függőleges irányban 250 helyzetbe állítható egy folt (106. ábra). 
Ebből 200 pozíció (lásd képernyőfelbontás) a képernyőre esik, 50 pedig 
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fölé. Ebből következik, hogy egy folt akkor jelenik meg teljes egészében 
a képernyőn, ha az 50. sorra helyezzük, és addig látható mind a 21 sora 
teljesen, ha a 229. sorra (függőlegesen kétszerezett folt esetében a 208. 
sorra) helyeztük el a képernyő aljára. 

A vízszintes irányú elhelyezés elve ugyanez. A képernyő vízszintes 
irányú felbontása 320 pozíció, de a folt 343 pontra helyezhető el. A folt 
akkor látható teljesen a képernyő bal szélén, ha a 24. oszlopra helyez- 
zük, és addig látható teljesen a képernyő jobb szélén, ha a 320. oszlopra 
(vízszintes irányban megnagyított folt esetén a 296. oszlopra) állítjuk 
be (106. ábra). 

A foltok függőleges irányú pozicionálását egy számértékkel végezhetjük 
el, amely O és 250 közötti érték lehet. Egy bájt 256 különböző értéket 
képes tárolni, ezért a pozicionáláshoz 1 bájt elegendő. 

Vízszintes irányban 1 bájt nem elegendő, mivel 343 különböző hely- 
zet lehetséges, ezért 9 bitre van szükség. A 8. folt 9. bitjei egy önálló 
bájtot alkotnak. A pozicionáló bájtok a következő címeken találhatók: 


Folt Helyzet Helyzetbájt címe 
0. vízszintes 53248 
0. függőleges 53249 
1 vízszintes 53250 
1. függőleges 53251 
2. vízszintes 53252 
2. függőleges 53253 
3. vízszintes 53254 
8. függőleges 53255 
4. vízszintes 53256 
4. függőleges 53257 
5. vízszintes 53258 
5. függőleges 53259 
6. vízszintes 53260 
6. függőleges 53261 
7. vízszintes 53262 
7. függőleges 53263 

vízszintes 9. bitek 53264 


Az 53264 című bájt legalacsonyabb helyértékű bitje a 0., a legmagasabb 
a 7. folthoz tartozik. 


10. feladat 


A képernyőn meg kell jeleníteni Magyarország gépkocsi-behozatali adatait 1977-ben, 
1980-ban, 1983-ban a 107. ábra szerinti formában. A számadatok mellett a darab- 
számok hosszával arányos hasábokat is meg kell jeleníteni piros színben. 
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Elvi képernyő 


Látható képernyő 


— — 7— 200 50r—— — — 


296. 320. 344. 


106. ábra. Foltok elhelyezése a képernyőn 


MAGYARORSZAG GEPKOCSI BEHOZATALA 
1977, 1980, 1983 EVEKBEN 
(EZER DB) 


110.5 


94.3 


1977 1980 1983 107. ábra. A 10. feladat kiírási képe 


A feladat elemzése 


A feladat alapvetően két részre bontható: az egyik a hasábdiagram elkészítése, 
a másik a szöveg kiíratása (108. ábra). 


Vizsgáljuk meg először a hasábdiagram elkészítését! 

A három hasábnak a behozott gépkocsik számával arányos hosszúságúnak kell 
lennie. A hasábokat foltokból célszerű felépíteni. Egy folt aránylag alacsony, ezért 
egy hasábot több foltból kell összerakni. Egyszerre csak 8 folt jeleníthető meg, 
ezért hasábonként 2 foltot használhatunk. Ez 42 sor magasságú hasábok megjelení- 
tését teszi lehetővé a 200 sorra felbontott képernyőn. Igy még mindig elég alacsony, 
de a kétszerezési lehetőség felhasználásával a magasság legfeljebb 84 sorra növel- 
hető, ami a képernyő magasságának több mint 4096-a. 
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Egy folt vízszintes irányú helyfoglalása 24 oszlop. Ha ezt teljesen kihasználnánk, 
akkor a hasábok nagyon zömökek lennének, és a magassági eltérések nem len- 
nének eléggé feltűnőek. Ezért csökkentsük a vízszintes kiterjedést egyharma- 
dára (8 oszlop). 

A foltok piros színű megjelenítése megoldható. Hová helyezzük el a hasábokat? 
A hasábok alatt és felett kiírás is van. Ezeket a PRINT utasítás segítségével tudjuk 
kiíratni, legegyszerűbben úgy, hogy közéjük vesszőt teszünk. A kiírást nem a kép- 
ernyő bal szélső oszlopán kezdjük, hogy az ábra középre kerüljön. A szövegelemek 
vesszővel való elválasztása miatt a szövegelemek a tíz karakter hosszúságú oszlopok 
kezdetére kerülnek, ami 80 grafikus oszlopnak felel meg. Az első szövegelem 
a 11. karakterpozíción fog kezdődni, érdemes tehát a hasábokat a szövegekhez 
igazítani. A bal oldali hasáb vízszintes beállításánál figyelémbe kell venni, hogy 
az alá és fölé kerülő számértékek csak a 12. karakterpozíción kezdődnek (egy pozí- 
ció az előjelnek van fenntartva). Mivel a számok 4 vagy 5 karakter hosszúságúak, 
akkor lesz tetszetős az ábpránk, ha még egy pozícióval jobbra helyezzük a hasábot. 
Végül is a 13. karakterpozícióban kell az első hasábot megjeleníteni (azaz előtte 
12 pozíciót kell üresen hagyni). Ez azt jelenti, hogy a képernyő bal szélétől (ami 
a 24. oszlop) a 12x9—-96. grafikus oszlopra helyezzük a bal oldali hasábot. Ez ösz- 
szesen 120 grafikus oszlopnyi távolság. A következőt 10 karakterpozícióval jobbra, 
vagyis a 1204-80—200. grafikus pontra. A harmadik pedig a 280. grafikus pozíción 
fog kezdődni. JJ 

A függőleges irányú elhelyezésnél a szöveg helyfoglalása a meghatározó. Az 59. ábra 
szerint a cím 3 sort foglal el. Ezután legalább 2 üres sort érdemes kihagyni, majd 
a darabszámok következnek. Ezután is tanácsos legalább egy üres sort hagyni, hogy 
a legnagyobb hasáb ne érje el a számokat. Mindez azt jelenti, hogy. 7 szövegsornak 
kell helyet hagyni. Egy szövegsor 8 grafikus sornak felel meg. Ebből következik, 
hogy a hasábok felső sorát a kép felső határától — ami az 50. sor — 7x8—56. grafi- 
kus sorra kell beállítani (106. sor). Mivel egy hasáb két foltból áll, az alsó foltot 
42 grafikus sorral lejjebb kell elhelyezni (a nagyítás miatt 42), azaz a 148. grafikus 
sorban. A hasábok hossza a gépkocsik darabszámával arányos. Egy hasábot 
2x21—42 grafikus oszlopra bonthatunk (a nagyítás miatt a sorok száma nem nö- 
vekszik!). Mondjuk azt, hogy ez feleljen meg a legnagyobb értéknek (110.5). Ennek 
megfelelően a bal szélső hasáb magassága: 


108. ábra. A 7. feladat szerkezete 


sor lesz. Vagyis az alsó folt teljes magasságú lesz, a felső viszont csak 15 grafikus 
sort foglal el. A jobb szélső magassága pedig 


89.1 
——— -338- 34 
110.5 


sor lesz. 42 ős 


A hasábdiagram megtervezésekor részben a szövegeket is megterveztük. Eszerint 
a címet 3 sorba írjuk ki, utána két üres sort hagyunk. A következő sorba írjuk 
a darabszámokat a 11. oszloptól kezdve 10 oszloponként. Ezután következik egy 
üres sor, majd a legfeljebb 84 grafikus sor magasságú hasábok. Egy hasáb több 
mint 10 szövegsornak felel meg. Ezért célszerű összesen 11 üres szövegsort kihagyni 
a darabszámok és az évszámok között. Az évszámokat a darabszámokhoz hason- 
lóan lehet kiíratni. A programban előbb a hasábokat ábrázoló foltokat kell megjele- 
níteni, utána pedig a szövegeket, mivel a két dolog megjelenítése független egy- 
mástól. 


A program tervezése 


Vizsgáljuk meg előbb a hasábdiagram-készítő funkciót! Ezen belül a következő 
részfunkciókat kell ellátni ahhoz, hogy a hasábok a képernyőn megjelenjenek: 


— foltterületek kijelölése a tárban, 

— definiálás (forma), 

— a színbájtok beállítása, 

— kétszerezés beállítása, 

— függőleges elhelyezés, 

— vízszintes elhelyezés, 

— a bekapcsoló bájt beállítása (bekapcsolás). 


Ezek a műveletek különböző bonyolultságúak, de mivel logikailag jól elkülöníthe- 
tőek, tárgyaljuk őket külön modulonként. Az egyes foltokat a megismert szabály 
szerint meg kell számozni, hogy a programban egyedileg tudjuk őket kezelni. A jel- 
kiosztást a 109. ábra mutatja. 

A szövegkészítési funkció sokkal egyszerűbb, azt egyetlen modulként is kezelhetjük. 
A program tehát a 110. ábrán látható modulokból fog állni. 


A modulok tervezése 


(1) Területkijelölés 
A modul eljárás típusú. Bemeneti adatai a konstansként megadott kezdőcímek, ki- 
menete ezeknek az értékeknek a beírása a foltmutató bájtokba. 

Helyezzük el a foltokat a tárprogramok számára fenntartott terület hátsó részén 
az alábbiak szerint: 


Foltsorszám Kezdőcím 

o 200-64 — 12800 

1 201-64 — 12864 

2 202-64 — 12928 

3 203-64 — 12992 

4 204.64 — 13056 

5 205-64 — 13120 
Ezek szerint a foltmutató bájtokba 200, 201, . . . 205-öt kell beírni. A foltok 
kezdőcímére a definiálásnál szükségünk lesz, ezért ezeket a KO, . . . , K5 változók- 


ban őrizzük meg. A modul műveleteit a 111. ábra mutatja. 
(2) Definiálás 


A modul eljárás típusú. Külső bemeneti adata nincs, kimenete a 6 folt formájának 
meghatározása. 
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C1) 
Terulet- 
kijelölés 


(3) 
Szíinbájtak 
állítása 


(5) 
Függőleges 
erhelyezés 


(7) 
Bekapcsolás 


, (6) 
Vízszintes 
elhelyezés 


(c8) 
Szövegek 


(2) C4) 
Definiálás Kétszerezés 


110. ábra. A program szerkezete 


Először nézzük meg, hogy mi az egyes foltok tartalma! Az elemzés szerint a fol- 
tok bal oldali egyharmada jelenik meg. Ez azt jelenti, hogy a foltok bal oldali 8 osz- 
lopában minden pont 1 lesz, a többi nulla. A bal oldali hasábot megjelenítő O jelű 
folt a leírtak szerint fog kinézni, de az 1 jelű folt már nem, mivel ennek csak 
36—21—15 sorát — méghozzá alsó sorát — kell megjeleníteni. Készítsünk folt- 
definiáló táblázatot (pl. kockás papírból), és jelöljük be, hogy a bal oldali hasáb két 
foltjának mely részeit kell megjeleníteni (vagyis hová kell 1-et vagy 0-t írni)! Ennek 
eredményét a 112. ábra mutatja. Az ábrán csak a megjelenítendő pontokat jelöltük 
be, a többi ponthoz a 0-kat nem írtuk be. 


A középső hasáb teljes hosszúságú lesz, ezért mind a 2, mind a 3 jelű foltot teljes 
magasságban ki kell tölteni (113. ábra). 


A jobb szélső hasáb alsó foltja szintén teljes hosszúságú lesz. A felső foltban viszont 
csak 13 sor magasságú lesz a megjelenítendő rész, mivel összesen 34 sor magasságú 
hasábot kell ábrázolni (114. ábra). 
A foltok kitöltésében könnyű észrevenni a szabályt. A 0, 2, 3 és 4 jelű foltok 1. bájt- 
jaiba (bal felső bájtok) csupa 1-et kell írni (decimális 255), majd a következő ket- 
tőbe 0-t. A 4. bájtba ismét 255-öt, a következő kettőbe pedig 0-t kell írni. Jól lát- 
ható, hogy ezt a műveletet ciklusban érdemes elvégezni. Ezeknek a foltoknak a ki- 
töltése azonos, az egyedüli eltérés az, hogy a foltok kezdőcíme más lesz. Tehát min- 
den foltnál más kezdőcímtől kezdve kell a kitöltést elvégezni. Ez teszi lehetővé, 
hogy a műveletet szubrutinként kódoljuk. A szubrutin hívása előtt a programban 
meg kell adni a folt aktuális kezdőcímét. 

A fenti elv nem alkalmazható az 1 és 5 jelű foltokra, mivel ezek felső része vál- 
tozó mértékben nullákkal van kitöltve. Az alsó rész kitöltési szabálya már megegye- 
zik a 0, 2, 3, 4 jelű foltok kitöltési szabályával. Az 1 és 5 jelű foltok kitöltésében 
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KEZDÉS 


(2) modul 


111. ábra. Az (1) modul műveletei 


1234 5 6 7 8 9 1011 1213 1415 16 17 18 19 20 21 22 23 24 
1 EIT] - 
28] [7 
31 hd hl Hi 
HEHE E ETET TT 
5 
6 JE EE ER IR EE HT E EN HT E ETT 
ENKEKEKT TT 
CIKEKEKEKI 
9111111][1 
10l1]1]1111 
ail111]1111 zÉGTÉ 
12 1 
13 
14 
1511 [1] 
16f111]1 
171111] 
18[1 111111] 
A KEKEKEKEKEKE 
20f1]1111]1]1 (EN E ERR NR RE HERE HE NI ET NI [II] 
21 1 ELI LELEI I 8 
1 1]1[1 ————— TT 
2 aa ETTTTTTTETTI 
3 11111 
ERRE 
5 341 
ú Th ENNE 
7 111 7 
8 111111]11 T 
A HKELEK HINNEM 
10 1191111 I] 9 folt 
11 11111]1 
12 111]1111 I ] 
13 1111111 
14 111]11]11 
15 1]11]1]11 
16 1]1]11]11 
17 111111 " 
18 111]1]1 hi 
19 111]11]11 
20 1]11111 
21 : 08 ke 6 (5 ő - 


112. ábra. A bal oldali hasáb foltjainak definiálása 


jelelelejelelelee[e 
jejelelelejelejelei 


1 
1 


ele] 


ENMAMFPYNYWOROVOONOOrErEEENMmMmMPFYOROA 
4 zat sztk. zt szallt ll zt szk ő 


- 


113. ábra. A középső hasáb foltjainak definiálása 


270 


234 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 


e] 
cjeleletetejeete 


ÜL e E E TÁ, SÜLT Ő ÉENMTNOROVAOrA mt norYagg 
vm — — — — — — NT E —  — — — — — — N NN 


114. ábra. A jobb szélső hasáb foltjainak definiálása 


(1) modul 


2 jelű folt 
kezdőcím-paraméterezés 


Teljes kitöltés 


és a d tartalmú bájtok 
számának paraméterezése 


1. jelű folt kezdőcím 


Részleges 
kitöltés 


szszlsztszádeészés 1 ? jelű folt 


SERGEEMEYTE NT NENEKÉSYt AES [ 3 jelű folt 


Teljes kitöltés 1 
—---- 1 4 jelű folt 


Teljes kitöltés 


——-—-—- 1 5 jelű folt 
Részleges 
kitöltés 


(3) modul 


115. ábra. A (2) modul folyamata 
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az a szabály fedezhető fel, hogy az első valahány bájtot (az 1 jelűnél 15, az 5 jelű- 
nél 24) O-val kell kitölteni, majd minden harmadik bájtba 255-öt, a közbensőkbe 
0-t kell írni. A két folt kitöltése nemcsak a folt kezdőcímében tér el, hanem abban 
is, hogy hány bájtba kell 0-t írni az elején. Ez még mindig lehetővé teszi, hogy 
a definiálást szubrutinként kódoljuk, de itt most a szubrutin hívása előtt két para- 
métert kell megadni: a kezdőcímet és a nullázandó bájtok számát. 

A modul művelteinek folyamata ezek alapján összeállítható (lásd 115. ábra). 
A szubrutinok műveletei a 116. és a 117. ábrán láthatók. 


(3) Színbájtok beállítása 
A modul eljárás típusú. Bemenete a foltok piros színét beállító 2 szám, kimenete 
pedig a színbájtok tartalma (2). 

A modul folyamán a 6 folthoz tartozó színbájtba 2-t kell beírni. A színbájtok 
egymás mellett helyezkednek el a tárban, ezért feltöltésük ciklusban elvégezhető 
(118. ábra). 


(4) Kétszerezés 

A modul adat típusú. Bemenete a függőleges irányban kétszerezendő foltokat 
meghatározó szám, amit az 53271 című bájtba be kell írni. A kétszerező bájt jobb 
oldali 6 bájtjába egyet kell írni (119. ábra). Ez a 32 4 16 4 8 4 4-1 21 1 — 63 deci- 
mális számnak felel meg. A modul egyetlen műveletét a 120. ábra mutatja. 


visszatérés 


116. ábra. A teljes kitöltési szubrutin műveletei 
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I-9,..., U—1 


PNNYSEN ESET ÉNÉKEYKÉTN Az első U számú 
lépés:1 bájt nullázása 


MENNENEK SÉKETS Az U sorszámú bájttól 
a folt végéig kitöltés 


visszatérés 


117. ábra. A részleges kitöltési szubrutin műveletei 


(5) Függőleges elhelyezés 


A modul eljárás típusú. Bemeneti adata a foltok függőleges helyzetét meghatározó 
két adat (106 és 148), kimenete a függőleges beállítást tartalmazó 6 bájtba írt érték. 

Az elemzésnél megállapítottuk, hogy az 1, 3 és 5 jelű foltokat a 148. grafikus 
sortól kezdve kell elhelyezni, a másik hármat pedig 42 sorral lejjebb. Az ezeknek 
megfelelő értéket kell a függőleges pozíciót meghatározó 6 bájtba beírni (120. ábra). 
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(2) modul 


sál snattántett, sttátázüté :jülénátntt : tett e] 


Kezdőcím 
SsSzZ- 53287 


(4) modul 
118. ábra. A (3) modul folyamata 


128 64 32 16 8 4 


sam ePLELELT 


7 
119. ábra. A kétszerező aa pé sle 


(6) Vízszintes elhelyezés 
A modul eljárás típusú. Bemenete a foltok vízszintes helyzetét meghatározó három 
adat: 120, 200, 280, kimenete a vízszintes beállítást tartalmazó 7 bájtba írt érték. 
Az elemzés alapján a O és 1 jelű foltokat a 120., a 2 és 3 jelű foltokat a 200., 
a 4 és 5 jelű foltokat a 280. grafikus oszlopba kell állítani. Ezeket az értékeket kell 
a foltok vízszintes pozicionáló bájtjaiba beírni. 
A 4 és 5 jelű foltoknál a pozíció 256-nál magasabb sorszámú oszlopra esik, ezért 
az ezekhez a foltokhoz tartozó 9. biteket 1-be kell állítani a 9. bitek bájtjában 
(121. ábra). 


A beállított érték 32 t 16 — 48. A két folt vízszintes pozicionáló bájtjába már csak 
280 — 256 — 24-et kell beírni, mivel a 9. bit 256-nak felel meg. A modul műveleteit 
a 122. ábra mutatja. 


(7) Bekapcsolás 
A modul adat típusú. Bemenete a bekapcsolni kívánt 6 foltot meghatározó szám, 
kimenete pedig ennek az értéknek a beírása a bekapcsoló bájtba. 

A bekapcsoló bájt jobb oldali 6 bitjébe 1-et kell írni a kétszerező bájthoz hason- 
lóan. Ez azt jelenti, hogy 63-at kell beírni az 53269 című bájtba (122. ábra). 
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(3) modul 


l 
j 
] 


L.J gjelöfolt 


— 1 jelű folt 


C€(6) modul 
120. ábra. A (4) és (5) modul műveletei 


128 64 32 16 8 4 2 1 


121. ábra. A 9. bitek bájt tartalma 


(8) Szövegek 
A modul eljárás típusú. Bemenetét a kiírni kívánt szövegek képezik, kimenete pedig 


a képernyőn megjelenő szöveg. 
A modulban a specifikációban megadott szövegelemeket kell az elemzésnek meg- 


felelő beosztásban kiírni (123. ábra). 
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(5) modul 


7 EE 


l 
zzz ész á dea 14 2 jelű folt 


l 
l 
I 
—— 1 1 jelű folt 
l 
j 
! 
j 
j 
l 
j 
l 
! 
l 


sessselesüszei HÍ 4 jelű folt 


JRE ÉEN ESSEN 1 9. bitek bájtja 


w 
j 
I 
l 
l 
W 
j 


(8) modul 
122. ábra. A (6) és (7) modul műveletei 


Kódolás 
A kódolásból néhány kritikus és újszerű részt mutatunk be. Az (1) modulban 
a területkijelölések közül az elsőt bemutatjuk. 


rTO KO-2zd9r5S4 
eg POKE 2948. 2egB 


Látható, hogy KO-nak nem a kiszámított értéket adtuk, hanem a gépre bíztuk 
a számolást. Igy kisebb a veszélye, hogy hibás számot adunk meg. 
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(7) modul 


SIZE at ööö nö ető 1 11 üres sor 


Üres sor kiírás 


Evszámok 


123. ábra. A (8) modul műveletei 


A (2) modulban az első két folt definiálása a következő: 


zi19g 0-KO 
zeg GOSUEB 1e99a 
zsü D-ki 
egg 47-15 
-5S9 GOSUB iízHag 


Jól látható, hogy a szubrutinok hívása előtt elvégezzük a paraméterezést. A teljes 
kitöltési szubrutinban a ciklusváltozót 0-ról indítjuk el, hogy ha hozzáádjuk a folt- 
terület címét, akkor az első lépésben valóban a terület első bájtjának értékét állítsuk 


be. A következő lépésben 1—1, így az eggyel magasabb című (második) bájtot 
kapjuk: 
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102393 FOR I-A TŰ 62 STEP 3 
1938 POKE BtI,255 

1840 FÜKE DtIt1.A 

1959 FOKE DtIt2E,OG 

1960 NEXAT I 

19739 REMK CIKLUS VEG £ 
103809 RETURN 


A részleges kitöltési szubrutin ehhez hasonlóan működik, azzal a külöbséggel, hogy 
a szubrutin elején egy nullázási ciklus is van: : 

ií229 FOR I-A TO U-1i 

1230 PÜüKE DtI,XO 

1239 MEXT I 


A szövegkiírásból érdemes megtekinteni a 11 üres sort kiíró ciklust: 


7509 FCR I-i TO 11 
769 PRINT 
770 NEXT I 


Ez a ciklus 11 PRINT utasítás leírásától kímél meg minket. 2—3 soremelésre még 
nem célszerű alkalmazni. 


A megoldás értékelése 


A feladatot általánosabb módszerek felhasználásával is megoldhattuk volna. Ezek 
ugyan nagyobb fáradságba kerültek volna, de több feladatnál felhasználható ered- 
ményt szolgáltattak volna. Rugalmasabb lett volna a megoldás akkor, ha például 
a foltok függőleges méretét a program számolta volna ki egy begépelt adat alapján. 
(Ilyenkor az adatból kellene meghatározni, hogy melyik biteket kell 1-be állítani.) 
Ez nyilván nem egy egyszerű műveletsorozattal oldható meg, de a kapott megoldás 
jól hasznosítható lenne ehhez hasonló feladatokban is. 

A feladatot úgy is meg lehetne oldani, hogy mind a 6 foltot függőlegesen azonos, 
maximális méretre definiáljuk, és a hasábokat az 1, 3 és 5 jelű foltok függőleges 
pozíciójának meghatározásával alakítjuk ki. Ez az előzőnél egyszerűbb lehetőséget 
nyújtana. Gyakorlásképpen ezt a megoldást javasoljuk. 
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Ellenőrző kérdések és feladatok 


1. Készítsük el a 10. feladat oszlopdiagramjait úgy, hogy hat teljes magasságú foltot 
rajzoljunk, és ezek függőleges elhelyezésével alakítsuk ki az oszlopokat! 


2. Módosítsuk úgy a programot, hogy az oszlopok magasságát a billentyűzetről 
beolvasott ádat értékétől függően állítsuk be! 


3. Egy foltban rajzoljunk egy helikoptert, amelyet a billentyűzetről beolvasott 
adatok alapján a képernyőn bárhol meg lehet jeleníteni! 


4. Az 5. feladat kiírásait vonalakkal megrajzolt táblázatban készítsük el! 


5. Próbálja meg a 8. feladatot úgy megoldani, hogy a csatatér széleit a képernyőn 
jelenítse meg! (Nem minden géppel oldható meg!) 
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1. FÜGGELÉK 


A KÖNYVBEN SZEREPLŐ FONTOSABB FOGALMAK 
ÉS MAGYARÁZATUK 


Adat: Tények és elképzelések nem értelmezett, de értelmezhető for- 
mában való közlése. Az adat a feldolgozás tárgya és eredménye. 


Adatállomány: Sok egyed tulajdonságainak értékeiből álló, valamilyen 
szempontból összetartozó adathalmaz. 


Adatállomány-feldolgozás: A tárba beolvasott rekordokon valamilyen 
művelet végrehajtása a feldolgozás céljának megfelelően. 


Adatállomány-létrehozás: A tárban létrehozott rekordok kimásolása a 
háttértárolón megnyitott adatállományba. 


Adatállományok módosítása: Egy adatállományhoz új rekordok hoz- 
záadása, meglevő rekordok törlése és a meglevő rekord adatainak 
módosítása. 


Adatállomány-nyitás: Egy megadott nevű adatállomány és a gép kö- 
zötti kapcsolat létrehozása. 


Adatállomány-zárás: Egy megadott nevű adatállomány és a gép kö- 
zötti kapcsolat megszüntetése. 


Adatkezelés: Az adatokkal kapcsolatos műveletek összessége (beolva- 
sás, ellenőrzés, rendszerezés, azonosítás, tárolás stb.). 


Adatmodul: Adatok meghatározására (definiálás, beolvasás, kezdő- 
értékadás) szolgál. 


Algoritmus: Valamilyen feladat megoldását célzó műveletsorozat. 


Állapotbájt: Adatállomány-olvasáskor az állomány állapotáról tartal- 
maz információt (az állományvég elérésekor értéke 1, egyébként 0). 


Argumentum: A függvény bemeneti adata (vagy független változója), 
amelyből a függvény egy eredményadatot állít elő. 


ASCII kód: A számítógépen használt jelekhez és a BASIC karaktereihez 
hozzárendelt bájttartalmak együttese. 


Bájt: 8 bitből álló adattároló egység, melynek 256 különböző állapota 
van. Az állapotok tetszőleges karaktereknek feleltethetők meg vala- 
milyen rendszer szerint (pl. ASCII kódrendszer). 
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Bemeneti adat: A feldolgozás kiinduló adatai, amelyekből az ered- 
ményadatok készülnek. 


Betöltés: A külső tárolóeszközről a gép tárjába való programmásolás. 
Billentyűzet: Egy számítógéphez tartozó billentyűk és nyomógombok. 
Bit: Kétállapotú adattároló egység. 


C helyőr (Sinclair-gépek): Az L helyőr alesete, amelyben csak nagy- 
betűk írása lehetséges. 


Ciklus: Különböző adatokkal ismételten végrehajtott műveletsorozat. 


Ciklusfeltétel: A ciklus befejezését vagy folytatását meghatározó fel- 
tétel. 


Ciklusmag: A ciklikusan végrehajtott műveletsor a ciklusban. 


Ciklusváltozó: Az az adat, amelynek értéke meghatározza a ciklus foly- 
tatását vagy befejezését. 


Cím: A tár egy bájtjához tartozó szám, amelynek megadásával tartalmát 
ki lehet olvasni, illetve adatot lehet beleírni. 


CP/M: Mikroszámítógép operációs rendszere. 


Csatorna: A számítógép és a perifériák között fizikai kapcsolatot való- 
sít meg. 


Egyed: Egy rendszernek olyan eleme, amelyet adatokkal kívánunk leírni. 


Egykijáratúság: A modul végrehajtása mindig ugyanazon az utasítás- 
számon kezdődik, és mindig ugyanazon a soron fejeződik be. 


Egymásba ágyazott ciklus : Egy ciklus magjában egy másik ciklus helyez- 
kedik el. 


Egymásba ágyazott szubrutin: A program egy szubrutinból egy másikat 
is hív. 


E helyőr (Sinclair-gépek): A CAPS SHIFT és SYMBOL SHIFT billentyű 
együttes lenyomásakor jelenik meg. Ekkor a billentyűk feletti zöld fel- 
iratok írhatók ki. 


Elágazás: Valamilyen feltételtől függően egy vagy több művelet közül 
az egyik kiválasztása és végrehajtása. 


Eljárásmodul : Tényleges műveletet végző modul. 


Eredményadat: A feldolgozási folyamat terméke, valamilyen számérték 
vagy szöveg. 
Érték: Egy egyed tulajdonságának konkrét megjelenése. 
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Feldolgozás: Valamilyen feladat megoldása végett adatokon végzett 
műveletek összessége. 


Felhasználói függvény: A felhasználó által definiált függvény, amely 
egyetlen programban érvényes. 


Feltételváltozó: Az a változó, amelynek értéke eldönti, hogy az elágazás 
melyik ága hajtódik végre. 


Felülről lefelé haladás (top-down) : A feladat lépésenkénti, egyre részle- 
tesebb felbontása részfeladatokra. 


Folt (C64): Vízszintes irányban 24, függőleges irányban 21 pontból 
álló, a felhasználó által meghatározható formájú jel, amely a képernyő 
bármely részén megjeleníthető. 


Folyamatábra: A program (modul) műveleteinek ábrázolása szabvá- 
nyos jelekkel. 


Főág: A programnak az a része, amely nem tartalmaz szubrutint, és 
amely a szubrutinok végrehajtását vezérli. 


Főprogram: Több programból álló szerkezet vezérlőprogramja. 


Funkcionális billentyű: Lenyomásakor a számítógép valamilyen művele- 
tet végez el. 


Függvény: Egy független változó értékből (argumentumból) valamilyen 
szabály szerint egy eredményértéket számít ki. 


G helyőr (Sinclair-gépek): A CAPS SHIFT és a 9 billentyű együttes le- 
nyomása után jelenik meg. Ekkor a billentyűk grafikus jelei írhatók ki. 


Gyűjtő : Hasonló feladatot betöltő változók összegét tartalmazó változó, 
amelynek tartalma (összeg) ciklusban alakul ki. 


Helyőr: Egy (villogó) karakter, mely a következő kiírandó karakter he- 
lyét mutatja. 


Kalkulátormód: Lásd közvetlen mód. 


Karakter: Egy jel (betű, szám vagy speciális jel), amely a programozás- 
ban valamilyen funkciót lát el. 


Kazettás tároló: A magnetofon elve szerint működő adatot tároló be- 
rendezés. 


Képernyősor: A képernyő bal széle és jobb széle között megjelenített 
karaktersor. 


Kétszeres pontosságú változó: A normál numerikus változónál nagyobb 
pontossággal tárolt változó. A kétszeres pontosságú változó tárolásához 
a gép több bájtot vesz igénybe, és több számjeggyel képes kiírni, mint a 
normál numerikus változókat. 
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K helyőr (Sinclairgépek): Utasítássorszám vagy kulcsszó begépelését 
teszi lehetővé. 


Kiíró : Számítógép által vezérelt elektronikus íróberendezés. 

Kimentés: A program kimásolása a gép tárjából külső tárolóberende- 
zésre. 

Kódlap: Programkód írását segítő űrlap. 

Kódolás: Az algoritmusban meghatározott műveletek "megfogalmazása 
egy programozási nyelven. 


Közvetlen mód: Egy utasítássorba írt sorszám nélküli utasítás(oka)t a 
gép azonnal végrehajt a sorzáró billentyű lenyomása után. 


Kulcsszó: Valamilyen programozási nyelv által lefoglalt szó, amelyet 
csak a nyelv által előírt célra és módon lehet használni (pl. nem lehet 
adatnév). 


Külső tároló: A számítógéphez hozzákapcsolt adattároló berendezés, 
amely adatok hosszú távú tárolására alkalmas. 


L helyőr ((Sinclair-gépek): A billentyűkön levő főjelek (betűknél kis- 
betűk) begépelését teszi lehetővé. 

Logikai ÉS reláció: A reláció két feltétel egyidejű teljesülése esetén 
áll fenn,. 

Logikai hivatkozási szám: Egy adatállomány programon belüli azono- 
sítója. 

Logikai VAGY reláció: A reláció egyik vagy másik feltétel teljesülése 
esetén fennáll. 

Mágneslemez : Lemez alakú, mágneses elven működő adattároló. 


Menü: A programmal elvégezhető részfeladatok kiírása, amelyből a 
felhasználó valamelyiket kiválaszthatja. 


Mező: A rekord egy önállóan értelmezett adata (egy egyed egy tulaj- 
donságának értéke). 


Modul: Az egész feladaton belül elkülönített részfeladat, amely önál- 
lóan is elkészíthető. : 


Moduláris programozás: A feladatot előbb modulokra kell bontani, eze- 
ket önállóan kell elkészíteni, és belőlük kell összeállítani a programot. 


Modulok közötti kapcsolat: A modulok végrehajtási sorrendjét meg- 
határozó viszony. 


Operációs rendszer: Programok összessége, amelyek a számítógéprend- 
szer egészét irányítják, az elemek működését összehangolják, és a prog- 
ramozónak szolgáltatásokat nyújtanak. 


Paraméterezés: Szubrutinok bemeneti adatainak beállítása a hívási rész 
követelményei szerint. 


Parancs: Sorszám nélküli utasítás(ok) , amelye(ke)t a gép a sorzáró gomb 
lenyomása után azonnal végrehajt. Vannak olyan kulcsszavak, amelyek 
parancsban nem használhatók (pl. INPUT), illetve vannak olyan kulcs- 
szavak , amelyek csak parancsként használhatók (pl. AUTO). 


Perifériák: A számítógéphez kapcsolt kiegészítő berendezések (nyom- 
tató, háttértár, kijelző stb.). 


Program: Utasítások sorozata, melyek megmondják a számítógépnek, 
hogy milyen műveleteket kell végrehajtani a feladat megoldása érde- 
kében. 


Programdokumentáció: A programról rendelkezésre álló írásos in- 
formáció. 

Programkódlista: A program egyes utasítássorai alkotják. 
Programkönyvtár: Egy mágneses tárolón tárolt programok összessége. 


Rekord: Az adatállomány része, amely egy egyed tulajdonságainak érté- 
két tartalmazó adathalmaz. 


Rendezés: Egy tömb vagy egy adatállomány adatcsoportjainak (pl. egy 
tömbsor vagy egy rekord) valamilyen szempont szerint csökkenő vagy 
növekvő rendben való összeállítása, ami lehetővé teszi az adatcsoportok 
megadott szempont szerinti rendezett kiolvasását. 


Sorszám: Az utasítássor programon belüli végrehajtását meghatározó 
szám. 


Sorzáró billentyű: A begépelés során egy sort fejez be. 


Szekvencia: Két vagy több utasításból álló műveletsorozat, amelynek 
minden elemét végre kell hajtani. 


Szekvenciális adatállomány: Bármilyen (teljes körű vagy csak egy re- 
kordra vonatkozó) feldolgozás esetén a rekordokat az állomány elejé- 
től a végéig be kell olvasni. 


Szintaktikai hiba: A programozási nyelv szabályainak be nem tartása 
miatt fellépő formai hiba. 


Szubrutin: A program tetszés szerinti helyéről hívható részfeladat, 
amely lehet egy modulrészlet, egy modul vagy több modul. 


Tár: A számítógép adattároló egysége. 
Tesztelés: A program kipróbálása. 


Többszörös utasítás: Egy utasítássorba (egy sorszám után) írt és elvá- 
lasztójellel (:) elválasztott utasítások. 
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Tömb: Egy n dimenziós mátrix, amelynek elemei valamilyen szempont- 
ból összetartozó adatok. 


Tulajdonság: Az egyedek jellemzői, amelyekkel ezek leírhatók. 


Utasítássor: Sorkezdettől a sorzáró karakter lenyomásáig begépelt jelk 
sorozata, amely több képernyősort is elfoglalhat. 


Utasítás tárgya: Legtöbbször valamilyen adat vagy utasítássorszám. Bi- 
zonyos esetekben hiányzik. 


Üzenet: Valamilyen művelet végrehajtása után vagy hiba esetén a gép 
által kiírt szöveg a képernyőre, a felhasználó tájékoztatására. 


Változó : Szimbolikus névvel ellátott adat. 
Vektor: Egy egydimenziós tömb. 
Vezérlőmodul: Egy vagy több modul végrehajtását irányítja. 


Véletlenszám-generálás: Egy adott tartományba eső szám vagy számso- 
rozat előállítása, amelynek tagjai szabálytalanul követik egymást. 
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2. FÜGGELÉK 


BASIC UTASÍTÁSOK, PARANCSOK 
ÉS KULCSSZAVAK 


Kulcsszó 


Jelmagyarázat 


7-7 függvény 


kiegészítő kulcsszó 
parancs 
utasítás 


Funkció 


ABS(A) . 


ACS A 
AND 
ASC(A$) 


ASN A 


ATN(A) " 


ATTR X.Y 


AUTO (A B) 


BEEP X,Y 


BIN 


BORDER A 


BRIGHT A 


CALL (X) 


CDBL (X) 


CHR$ (A) 


CINT (A) 


CIRCLE 
(X,Y,2) 


CLEAR (A) 


ae 


A abszolút érték számítása 
A arkusz koszinusza 
Logikai ÉS kapcsolat szava 


A$ első karakterének 
ASCII kódja 


A arkusz szinusza 
A arkusz tangense 


Az X sorban és Y oszlop- 
lopban kiadott jel megje- 
lenési módja 


Automatikus sorszámozás 
A-tól B lépésben 


Y magasságú hangkiadás 
X s-ig 


Az utána írt számot 
binárisan olvassa 


Az A-nak megfelelő színre 
állítja a keretet 


Az A-nak megfelelő 
fényességet állít be 


A X címen levő gépi kódú 
program hívása 


X szám kétszeres 
pontosságú változó 


Az A számnak megfelelő 
jelet adja vissza 


A-t egész típusúra alakítja 
X, Y középpontú, Z sugarú 
kört rajzol 


Az A számú bájtot és a 
változókat törli 


Tove jeéltés [csa 
F 155 xX 
F az 
K Hal x 
F] — x 
F sz 

- x 
P 75 
F az 
F 
U — 
U sz 
F e. 
F sei 
F] — x 
él 
P pen 


Xx 
x 
X 
xX 
X 
X 
xX 
xX 
x 
x 
x 
xX 
x xX 
xX 
xX 
X X 
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jé ús Leírás HT — 
Kulcsszó Funk: Típus az 
I Z. unkció P öld; C-—64 0 10807 PRIMOI Spectrum 
CLOAD$—1,A [ Az A nevű programot P 43 "] Xx 
betölti 
CLOAD? A Az A nevű állományt össze- P 42 x 
hasonlítja a tárban levővel 
CLOSE A Lezárja az A logikai hivat- U 194 Xx Xx Xx 
kozási számú állományt 
CLR A változókat törli U 224 Xx 
CLS Képernyőtörlés U x x Xx 
CMD A A kiírást az A logikai hivat- U 78 xX 
kozási számú állományra 
irányítja 
CODE A$ A szöveg első jelének kódját F - ! x 
adja 
CONT A programot a leállás P 81 Xx x x 
helyéről folytatja 
CONTINUE Ua., mint CONT P éz x 
COPY Az első 22 sort kinyomtatja U s Xx 
COS (A) ts A koszinusza F ve Xx Xx X xX 
CSAVEH—1TAA JA tárban levő programot P 42 x 
A névvel kimásolja 
CSNG (A) A-t valósra konvertálja F FRB x 
CREATE Állomány létrehozása U és Xx 
DATA Adatokat helyez el U 119 Xx Xx x x 
DEFDBL Az utána írt változók U el x Xx 
kétszeres pontosságúak 
DEF FN Felhasználói függvény U 156 pa Xx 
definiálása 
DEFINT Az utána írt változók egész U - Xx x 
típusúak 
DEFSNG Az utána írt változók U — Xx Xx 
numerikus változók 
DEFSTR Az utána írt változók U haz x x 
szövegesek 
DELETE Az utána álló sorszámú P szi xX x 
utasítás(loka)t törli 
DIM Tömböt definiál U 173 Xx x x X 
DRAW X,Y A jelenlegi pont és X,Y U — x 
között egyenest rajzol 
DRAW XYZ A jelenlegi pont és X,Y U — x 
között egyenest húz 


Z-vel elforgatja 
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Kulcsszó Funkció Man C—64 

EDIT A A sorszámú utasítás P ] 301 Xx 
módosítása 303 

ELSE Lásd az IF THEN K — pé 
ELSE-nél 

END Program vége 87 xX xX 

ERL A hibás sorszámot adja F - x 
vissza 

ERR A hibakód számát adja F ke X 
vissza 

ERROR A Az A hibakódot állítja elő U - Xx 

EXP(A) " Az e A-adik hatványát adja F ez pé Xx 
vissza 

FLASH A A-nak megfelelően U - 
villogást ad 

FIXI(X) X-ről leválasztja a törtrészt - x 

FN név (A) Az FN név függvény A pont- zs pé 
beli értékét adja 

FOR TOSTEP / Ciklust hajt végre U 154 x Xx 

FRE (0) A tárban a szabad hely F sz Xx Xx 
mérete bájtban 

FRE (0$, A szöveges változók szabad F s 
tárolóhelye 

GET A$ A lenyomott billentyű UJ 203 pó 
kódja A$-ba 

GETHA Az A számú eszközről egy U za x 
bájtot olvas 

GOSUB A Szubrutint hív az A U 116 xX pé 
sorszámon 

GOTOA A végrehajtás A sorszámon U 96 Xx Xx 
folytatódik 

IF THEN Elágazási utasítás U 94 xX x 

IF THEN ELSEI Elágazási utasítás 96 x 

INK A A képernyőre írás színét U — 
állítja be 

INKEY$ A lenyomott billentyű U j 203 Xx 
kódját adja vissza 

INP (A) Az A kapuról egy bájtot F —- Xx 
beolvas 

INPUT A billentyűzetről adatot U 105 x xX 


olvas be 


Xx 


x 


x 


T 
HT — 
1080Z PRIMO I Spectrum 


X 
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T " 
jaj; Leírás ji HT — 
9) ípus szid 
Kulcsszó Funkció P öle. C—64 1080Z PRIMO [ Spectrun 
INPUT HA Az A logikai hivatkozási U 241 X x 
számú állományról egy 
rekordot olvas 
INVERSE A A-nak megfelelően negatív U és x 
írást ad ki 
INT (A) új A-nál kisebb egész értéket adí  F 156 Xx x Xx Xx 
LEFT$(A$,B) Í B sorszámú karakter az sz x Xx xX 
A$ bal oldaláról 
LEN(A$) " A$ karakterszámát adja F sz Xx x Xx Xx 
vissza 
LET Értékadás u 84 x x x x 
LINE Szöveges változó beolvasása [5 U sz § x 
INPUT-tal 
LIST Programlistázás P 77 Xx Xx pé Xx 
LLIST Programlistázás nyomtatóra P 79 Xx x x 
LOAD Programbetöltés P 40 Xx X pa xX 
LOG (X) X algoritmusát adja vissza U ss Xx Xx 
LPRINT Kiírás nyomtatóra U 195 x x x 
MEM A tárban nem használt F - x 
bájtok száma 
MERGE A betöltött és a bent levő U szú X 
programból egy újat 
hoz létre 
MID$ (A$B,C) ] Az A$ szöveg B-edik és F — x x x 
C-edik helyértéke közötti 
szöveget adja 
NEW A bent levő programot törli P 21 Xx Xx Xx Xx 
NEXT Cikluszárás U 154 Xx x x Xx 
NOT Logikai tagadás - -— Xx Xx x xX 
ON ERROR Hiba esetén elágazás U - x xX 
GOTO 
ON A GOTO A-tól függően ágazik el U iz Xx Xx xX 
ON A GOSUB I! A-tól függően egy szub- U - x X Xx 
rutint hív 
OPEN Megnyit egy perifériát U 192 x Xx 
OR Logikai VAGY kapcsolatot U I 217 Xx x Xx Xx 
jelöl 
OUT(A B) " Az A kapun B számot ír ki U - x Xx Xx 
OVER A A-nak megfelelő módon egy U — Xx 
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jelet átír 


Kulcsszó Funkció Típus old. 

PAPER A A-nak megfelelően alapszínt F — ] 
állít 

PAUSE A A végrehajtást leállítja és F — 
A képet mutat 

PEEK (A) " ] Az A címen levő bájt F 260 
tartalma 

Pl Tr értékét adja — 

PLOT A,X,Y A-nak megfelelő színű - 
pontot rajzol az X,Y 
koordinátákba 

POINT (X,Y) Az X,Y koordinátájú pont F — 
állapotát vizsgálja 

POKE AB Az A című bájtba B értékét U 258 
írja 

POS (0) A helyőr jelenlegi helye F — 
egy sorban 

PRINT Adatkiírás U 86 

PRINT$A Az A logikai hivatkozási U 192 
számú állományra írás 

RANDOM Véletlenszámsort U 210 
véletlenszerűvé tesz 

RANDOMIZE I! Véletlenszámsort u 210 
véletlenné tesz 

RE (AB) A-tól B lépésben újra- P e 
számozza az utasításokat 

READ Adatolvasás a DATA-ból U 119 

REM Megjegyzés, magyarázat, U 76 
tárolás 

RESET (X,Y) A X,Y koordinátájú pontot F — 
kikapcsolja 

RESTORE A DATA olvasást vissza- U — 
állítja az első adatra 

RESUME A hibakezelést befejezi, és U — 
visszatér a hibás utasításra 

RESUME A A hibakezelés után az A sor- U - 
számra adja a vezérlést 

RESUME A hibakezelést befejezi, és U - 

NEXT visszatér a hívás utáni 
utasításra 

RETURN Szubrutin-befejezés 116 

RIGHT$(A$,B)] Az A$ jobb oldaláról B ka- F s 


raktert vesz 


PRIMOIJ Spectrum 


x xX 
Xx 

Xx 
xX x 
xX X 
X 
xX Xx 
xX 
xX 
xX xX 
xX 
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73 Leírás HT — 
Ó jó ípus e 
Kulcsszó Funkció Pu öld. 64 1080Z PRIMO [ Spectrum 
RND (A) " A-tól függő véletlenszámot F 209 Xx pú Xx x 
állít elő 
RUN Programvégrehajtás 81 x Xx x Xx 
SET (X,Y) Az X,Y koordinátájú pontoti  F - pú Xx 
kapcsolja 
SAVE A programot háttértárolóra P 38 xX ped Xx X 
másolja 
SAVE- Képernyőmásolás az A nevű F - Xx 
SCREEN A állományra 
SCREEN$ A képernyő X,Y koordiná- F - x 
(X.Y) tájú pontját olvassa 
SGN(A) " Az A előjelétől függően F — x Xx x x 
—1,0, 4-1 
SIN (A) ki A szinusza F 155 pé x x pt 
SPC (A) A számú szóközt nyomtat F - xx 
SOR (A) A négyzetgyökét adja F — x x x Xx 
STATUS Az állomány helyzetét F — x 
tartalmazza olvasásnál 
STEP Lásd a FOR TO STEP K zi x x x x 
utasításnál 
STOP A végrehajtást leállítja 80 Xx x Xx Xx 
STRING$(A B)! B-t A jelből álló szöveges F kezi Xx Xx 
adattá alakítja 
STR$(A) " A-t szöveges formájú adattá F - x Xx x x 
alakítja 
SYS(A) Az A tárcímtől gépi kódú u — x 
programot hív 
SYSTEM Gépi kódú üzemmódba P - Xx 
kapcsol 
TAB(A) " PRINT utasításban A-adik F 1 164 x ped x x 
pozícióra áll be 
TAN(A) " A tangense — x Xx Xx x 
TEST A tárban levő és a kazettán P 44 Xx 
levő programot össze- 
hasonlítja 
THEN Lásd az IF THEN és K Í — Xx Xx x Xx 
IF THEN ELSE utasí- 
tásoknál 
TI A belső órát olvassa — Xx 
TI$ A belső órát szöveges for- szi Xx 
mában olvassa 
TO Lásd aFOR TOSTEP K Í — x X pé X 
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utasításnál 


eírás 
lcsszó Funkció í — 
Kulcsszó unkci ípu Id. C-—64 1080Z PRIMO Í Spectrum 
ss 
TROFF Kikapcsolja a nyom- P - Xx b. 
követést 
TRON A nyomkövetést bekapcsoljai P — x x 
USING Formátumkiírás kulcsszava - x 
PRINT utasításban 
USR(A) " Az A tárcímtől gépi kódú F - Xx x pé 
szubrutint hív 
USR A$ Az A$ nevű felhasználói F - x 
grafika kezdőcíme 
VAL(A$) " A$ numerikus értékét adja F — Xx Xx pé x 
VARPTR A Az A címét adja meg F - x Xx 
VARPTR(A$) AzA$vcímét adja meg F - x 
VERIFY A tárban és a háttértáron P 39 x 
levő programot hasonlítja 
össze 
WAIT Programleállítás egy U - x 


eseményig 


A csillaggal jelölt függvények argumentumát a Sinclair-gépeken nem kell zárójelbe tenni. 
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3. FÜGGELÉK 


GYAKRABBAN ELŐFORDULÓ PROGRAMHIBÁK 


ÉS JAVÍTÁSUK 


Bemutatunk néhány gyakrabban előforduló hibát és az ekkor megjele- 
nő hibaüzenetet, valamint azt, hogy hogyan lehet a hibát kijavítani. 

Leírásunk nem teljes körű, ezért azt ajánljuk az olvasónak, hogy ha 
olyan hibaüzenetet ír ki a gépe, amit itt nem talál meg, azt a gép kézi- 
könyvében keresse meg, és így derítse ki a hiba okát, vagy kérjen ta- 


nácsot egy szakértőtől. 


Jelenség/Hibaüzenet 


A ciklust nem a kívánt számban 
hajtja végre a program 


DIVISION BY ZERO (C64) 
10 (m HT és A PRIMO) 


NEXT WITHOUT FOR (C64) 
NF (m HT és A PRIMO) 


1 NEXT without FOR (e Sinclair) 


OUT OF DATA (C64) 
OD (m HT és A PRIMO) 


E OUT of DATA (e Sinclair) 
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Magyarázat és javítás 


A ciklus végfeltételét helytele- 
nül állapítottuk meg elöl tesz- 
telő vagy hátul tesztelő ciklus 
esetén. A feltételeket ki kell 
javítani 


Nullával való osztás. Nem vettük 
figyelembe, hogy a nevező 0 is 
lehet, vagy a nevező helytelen 
számítás eredményeként 0 


Nincs FOR utasítás a FORNEXT 
utasításpárral készített ciklusban 


Kifelejtettüka FOR utasítás le- 
írását a programból. A hiányzó 
utasítást be kell írni 


READ utasítással adatot akarunk 
kiolvasni DATA utasításból. Ke- 
vés adatot írtunk be a DATA 
utasításba, vagy felesleges READ 
utasítást írtunk be. A hibát a fel- 
adat helyes megoldása szempont- 
jából kell értékelni és kijavítani. 


Jelenség/Hibaüzenet 


REDO FROM START (C64) 
TM (nm HT és A PRIMO) 


RETURN WITHOUT GOSUB (C64) 
RG (nm HT és A PRIMO) 

7 RETURN without GO SUB 

(e Sinclair) 


7? SYNTAX ERROR (C64) 
SN(m HT és A PRIMO) 


TYPE MISMATCH (C64) 


UNDEFD STATEMENT (C64) 


Magyarázat és javítás 


A gép numerikus értéket vár egy 
INPUT utasításban, de szövegeset 
írtunk be. A program nem fogad- 
ja el az adatot, újra be kell írni 
helyesen 


A program egy RETURN sort ta- 
lált anélkül, hogy előtte GOSUB 
utasítást hajtott volna végre. A fő- 
ág végén nem kerültük ki a szub- 
rutinokat, vagy a főágba szubru- 
tint kevertünk bele. A szubruti- 
nokat a felesleges végrehajtás 
elkerülése végett ki kell kerülni 


Formai hibát követtünk el. Egy 
utasítás kulcsszavát helytelenül 
írtuk be, a kulcsszóban vagy az 
utasítássorszámban szóközt íÍr- 
tunk, a nyitó- és zárójelek száma 
eltér, valamit kifelejtettünk az 
utasításból, és így tovább. A hi- 
bás sort meg kell vizsgálni és 
ki kell javítani. Ilyen hiba a 
Sinclair-gépeken nem fordulhat 
elő, mert a gép nem fogadja el 
a formailag hibás utasítást 


Numerikus változó helyett szö- 
vegeset adtunk meg vagy fordít- 
va, vagy kifelejtettük a $ jelet a 
szöveges változó végéről, vagy 
nem jól vettük figyelmbe a vál- 
tozók típusát. Újra át kell gon- 
dolni a változók típusát, a gépe- 
lési hibákat ki kell javítani stb. 


Egy GOTO vagy GOSUB, vagy 
RUN sorszám utasításban olyan 
sorszám szerepel, amilyen nincs a 
programban. Vagy a hiányzó uta- 
sítást kell pótolni, vagy a hibás 
sorszámot ki kell javítani 
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Jelenség/Hibaüzenet Magyarázat és javítás 


BAD SUBSCRIPT (C64) Helytelen indexet használtunk a 
BS (um HT és A PRIMO) programban. A tömböt nem defi- 
3 Subsceript wrong (e Sinclair) niáltuk a használat előtt, vagy a 


méretét nem elég nagyra vet- 
tük. A hiányzó DIM utasítást pó- 
tolni kell, vagy ki kell javítani 


PROGRAMSOROK JAVÍTÁSA 


1. A COMMODORE-GÉP HIBAJAVÍTÁSI LEHETŐSÉGE 


A tárban levő program sorait a képernyőn lehet javítani. Ezért először 
a hibás sort a LIST paranccsal ki kell íratni a képernyőre. Ezután a 
helyőrt a hibás sor elejére állítjuk a helyőrmozgató gombok segítségével: 


1 
felfelé mozgatás SHIFT — és GES 


lefelé mozgatás júl s 


hsz 


balra mozgatás SHIFT és CRSR 


a 


pa 
jobbra mozgatás c RS R 


Ezután tudunk hibát javítani. 


KARAKTEREK TÖRLÉSE 


A helyőrt a törölni kívánt karaktersorozatból egy helyértékkel jobbra 
állítjuk, és annyiszor nyomjuk le a törlőgombot (INST/DEL), ahány 
jelből áll a törölni kívánt szövegrész. Törlés közben a helyőrtől jobbra 
eső szövegrész a helyőrrel balra mozog. Tegyük fel, hogy az alábbi uta- 
sításból ki akarjuk törölni a GOTO-t: 


100 IF A-B THEN GO TO 500 


A helyőrt az O és az 5 közé állítjuk, majd annyiszor lenyomjuk az 
INST/DEL gombot, hogy a GO TO eltűnjön. Ha a sor javítását befejez- 
tük, nyomjuk le a RETURN gombot, mert csak így marad meg a mó- 
dosítás. 
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KARAKTEREK BESZÚRÁSA 


A helyőrt arra a helyre állítjuk a programon belül, amely után valami- 
lyen szövegrészt be kell szúrni. Ezután a SHIFT és az INST/DEL gomb 
együttes lenyomásával a helyőrtől jobbra üres helyek keletkeznek, aho- 
vá a hiányzó szövegrészt begépelhetjük. Az üres helyek kitöltése után a 
javítást a RETURN gomb lenyomásával lehet befejezni. 

Ha egy PRINT utasításban páratlan sorszámú idézőjelet írunk, akkor 
a helyőrmozgató gombok hatástalanná válnak. Ha ilyenkor egy helyőr- 
mozgató gombot nyomunk le, akkor a gombnak megfelelő fordított ka- 
rakter jelenik meg a képernyőn. Ez egyébként helyőrmozgatást fog vég- 
rehajtani a program futásakor. Ezért idézőjelbe tett szövegrészeken 
belül csak az INST/DEL gombbal lehet balra haladva törölni. 


SZÖVEGES ÁTÍRÁS 


A programsor szövegét más szöveg begépelésével módosíthatjuk. A mó- 
dosítás után ne felejtsük el a RETURN gombot lenyomni, mert csak ez- 
zel válik véglegessé a javítás. Ha több programsor van a képernyőn, és a 
javítás után a helyőr a következő sor elejére áll, de ezt nem kell javítani, 
akkor a RETURN gomb lenyomásával haladhatunk lefelé. 


2." A HT GÉP HIBAJAVÍTÁSI LEHETŐSÉGE 


A tárban levő program sorait az EDIT szövegszerkesztővel lehet módosí- 
tani. Az EDIT nagyon sok hibajavítási lehetőséget tartalmaz. Ezek kö- 
zül a fontosabbakat mutatjuk be. 
A javítani kívántsortaz EDIT sorszám paranccsal hívhatjuk be, pél- 
dául: 
EDIT 200 


Ezután el lehet kezdeni a javítást. Előtte azonban érdemes megjeleníteni 
a keresett sort az 


L 


(listázás) paranccsal. 


KARAKTEREK TÖRLÉSE 


A helyőrt a szóközbillentyű lenyomásával (jobbra mozgatás) és a — 
gombbal (balra mozgatás) tudjuk a soron belül (pontosabban a sor 
alatt) mozgatni. 


A törlést az nD paranccsal lehet végrehajtani. Hatására a helyőrtől 
jobbra álló karakter törlődik. A kiírásban a törölt szövegrész nem tűnik 
el, hanem két felkiáltójel között jelenik meg. A NEW LINE lenyomása 
után a törlés véglegesen megtörténik. Például a következő sorból tö- 
röljük ki a GOTO-t: 


200 IF AZB THEN GOTO 500 


A helyőrt állítsuk a G betűre, és adjuk ki az 
5D 
parancsot, melynek hatására az alábbi kiírás jelenik meg: 
200 IF AB THEN ! GOTO ! 500 


A 2 felkiáltójel határolja a törölni kívánt szöveget. Ha meggondoltuk 
magunkat, vagy rosszul írtuk be a javítást, akkor 


A 


parancsot kell kiadni, amely visszaállítja a programsort az EDIÍT-be való 
belépéskor meglevő állapotába, és a módosítást elölről lehet kezdeni. 
A javítátt a NEW LINE gombbal lehet véglegesíteni. 


KARAKTER BESZÚRÁSA 


A helyőrt arra a pozícióra kell állítani, ahol a beszúrást el akarjuk kez- 
deni. Ekkor 


parancsot adunk ki, és beírjuk a beszúrandó szöveget. A begépelés végén 
a SHIFT és a 1 billentyű együttes lenyomásával befejezzük a beszúrást. 
Az L paranccsal kiírható a módosított utasítássor. 


KARAKTER CSERÉJE 


A helyőrt állítsuk közvetlenül a kicserélni kívánt szövegrész elé. Ekkor 
itt egy 
nC 


parancsot adunk ki, amelyben ? a kicserélendő karakterek számát jelöli. 
Ezután beírjuk az új szöveget. Például az alábbi sorban az AB változó- 
nevet B2-re akarjuk javítani : 


200 PRINT AB 
A helyőrt az A-ra állítjuk, és kiadjuk a cserére vonatkozó parancsot: 
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2C 
majd beírjuk az új szöveget: 
B2 


Ezzel a módosítás megtörtént. A módosított sort az L paranccsal ki- 
listázzuk: 
200 PRINT B2 


Az EDIT szerkesztési műveletet a NEW LINE gomb lenyomásával fejez- 
hetjük be. 
Az EDIT nem teszi lehetővé a sorszám módosítását! 


3. A A PRIMO GÉP HIBAJAVÍTÁSI LEHETŐSÉGE 


A tárban levő programot az 
EDIT sorszám 


paranccsal lehet módosítani. A sorszám a programsor sorszáma. A mó- 


dosítandó sort a 
a 


gomb ismételt lenyomásával lehet kiíratni. A sorból a 


— 


gombbal lehet törölni. Ha a törölt szövegrész helyébe újat akarunk be- 
írni, akkor azt ilyenkor be lehet gépelni. A 


RETURN 


gomb lenyomásával a helyőrtől jobbra levő szövegrész törlődik, és a 
módosítás befejeződik. 

Ha több részt kell módosítani, akkor az egyes részek módosítása után 
a SHIFT és € gomb együttes lenyomásával lehet a sor elejére állítani a 
helyőrt és folytatni a módosítást. 

Ha nem akarunk javítani, vagy a javítást nem akarjuk átvezetni, ak- 
kor a ! gombot nyomjuk le, és a sor visszaáll az EDIT-be lépés előtti 
formájára. 

A módosítást a SHIFT és a — gomb együttes lenyomásával zárhat- 
juk le. 

Az EDIÍT-tel a sorszám is módosítható. Ilyenkor mind az eredeti, 
mind a módosított sor megmarad. 


4. GA SINCLAIR-GÉPEK HIBAJAVÍTÁSI LEHETŐSÉGE 


A Sinclair-gépeken az utasítássorok beírásakor is van lehetőség olyan 
hibajavításra, amely nem a törlésen és újraíráson alapul. A — gomb se- 
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gítségével a begépelt szövegben visszaléptethetjük a helyőrt a javítás 
helyére. Ekkor a helyőrtől jobbra levő szövegrész helyett újat írhatunk 
be, vagy a helyőrtől balra levő szövegrészt a DELETE gomb ismételt 
lenyomásával törölhetjük. 

A tárban levő programsorokat az EDIT paranccsal lehet javítani. 
Előtte azonban a javítandó sort ki kell listázni. Ha több sor közül kell 
a javítandót kiválasztani, akkor a ? és ) gombbal tudjuk mozgatni a 5 
sormutatójelet, és ezzel választhatjuk ki azt a sort, amelyet javítani 
. akarunk. 

A kívánt sorra ráállunk, és lenyomjuk az EDIT gombot. Ekkor a sor 
megjelenik a képernyő alsó részén. A javítást ugyanúgy végezhetjük el, 
mint egy most begépelt sorban. A javítás befejeztével lenyomjuk az 
ENTER gombot, ekkor a javított sor kerül a képernyő felső részén levő 
régi sor helyébe. 


4. FÜGGELÉK 


ADATÁLLOMÁNY ÉS PROGRAMKÓDOT TARTALMAZÓ 
ÁLLOMÁNYMŰVELETEK A COMMODORE—64 GÉPEN 


1. A LEMEZ HASZNÁLATA 


A lemezegység hálózati csatlakozóját bedugjuk az aljzatba. A számító- 
géphez csatlakozó kábel egyik végét a számítógép hátán levő egyik du- 
góba, a másik végét pedig a lemezegység , SERIAL BUS" feliratú dugó- 
jába dugjuk. Ezután bekapcsoljuk a tápfeszültséget. A számítógépet 
mindig a lemezegység után kapcsoljuk be! 

A lemezt címkéjével felfelé fordítjuk úgy, hogy az írásvédelmi be- 
vágás a bal oldalon legyen (nem kell leragasztani!), és behelyezzük a 
lemezegységbe. A becsúsztatás végén már csak egy ujjal tudjuk nyomni, 
és ütközésig nyomjuk be finoman. Ekkor az ajtót lehúzzuk. 

A lemez kivevésénél az ajtó fogóját kissé befelé nyomjuk, ekkor az 
magától felugrik, a lemez pedig egy kicsit kiugrik, hogy könnyen meg 
tudjuk fogni kézzel. 

A lemezt mindig a bekapcsolt berendezésbe tegyük be! Ha a zöld 
lámpa ég, ne vegyük ki a lemezt a berendezésből, mert a tartalma meg- 
sérülhet! Kikapcsolás előtt is mindig vegyük ki a lemezt az egységből! 


2. AZ ÁLLOMÁNYMŰVELETEK PARANCSFORMÁJA 


Adatállományokkal és programkódot tartalmazó állományokkal kap- 
csolatos műveleteket parancscsatornára Írás formájában adunk ki. Ezért 
minden művelet elején meg kell nyitni a parancscsatornát az alábbi pa- 
ranccsal: 

OPEN 15, 8, 15 


ahol 
az első 15 — az állomány logikai hivatkozási száma, 
8 — a lemezegység száma (lehet 9 is), 
a második 15 — a csatorna száma, amelyen keresztül a lemez 


és a számítógép összekapcsolása létrejön. A 15 
a parancscsatorna száma. 


A parancsot PRINT utasítással adjuk ki. A parancs után a számítógép 
és a lemezegység közötti kapcsolatot meg kell szüntetni a 


CLOSE15 
paranccsal. 
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3. AZ ÁLLOMÁNYMŰVELETEK PARANCSAI 


3.1 A LEMEZ FORMÁLÁSA 


Mielőtt egy lemezt használatba veszünk vásárlás után, vagy a lemez tar- 
talmára nincs szükségünk, és fel akarjuk , újítani" magunknak, akkor 
kell ezt a műveletet elvégezni: 


PRINT$15, "NEWO: név, azonosító" 


ahol 
NEWO: — a formálás kulcsszava (NO--val rövidíthető), 
név — a lemez neve (max. 16 karakter), 
azonosító — tetszőleges azonosító kód (2 karakter) . 

Példa: 


OPEN 15,8,15:PRINT415,"NEWO:TVBASIC,PL":CLOSE15 


A lemezt formálja a TVBASIC névvel és PL azonosítóval. 


3.2 ÁLLOMÁNYOK MÁSOLÁSA 


Ha egy meglevőhöz hasonló programot kívánunk készíteni, akkor a kész 
program módosításával célunkat elérhetjük. Ehhez viszont előbb egy 
másolatot kell készíteni a programról, és a másolatot kell módosíta- 
nunk. A másolási parancs formája : 


PRINT$15,"COPYO:új név — O0:régi név" 


ahol 
COPY O: — a másolás parancsszava (CO:-val rövidíthető), . 
új név — a másolat neve (max. 16 karakter), 
régi név — a meglevő program neve. 

Példa: 


OPEN15,8,15:PRINT$15,/"COPYO:AMOR1—-O:AMOR":CLOSE15 
Az AMOR nevű programot AMOR1 névvel lemásolja. 


Megjegyzés: programokat úgy is másolhatunk, hogy a másolni kívánt 
programot a LOAD paranccsal betöltjük a tárba, és — módosítás után 
vagy anélkül — új névvel kimásojuk a SAVE parancs segítségével. 
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3.3 ÁLLOMÁNYOK ÖSSZEKAPCSOLÁSA 


Meglevő programmodulokból úgy tudunk létrehozni egy újabb progra- 
mot, hogy a modulokat a feladat megoldásának megfelelő sorrendben 
egymás után összekapcsoljuk. Az összekapcsolást a COPYO: paranccsal 
lehet végrehajtani : 


PRINT$15,7CO: új név — O:régi név 7, O:régi név 2, . . ." 
A régi nevű állományokat az összekapcsolás sorrendjében kell felsorolni 
(a régi név 7 lesz elöl, utána a régi név 2, . . .). Egy paranccsal legfeljebb 
négy állományt lehet összekapcsolni. 
3.4 ÁLLOMÁNYOK NEVÉNEK VÁLTOZTATÁSA 


Egy állomány nevét a következő paranccsal lehet módosítani : 


PRINT315, "RENAMEO: új név — régi név" 


ahol 
RENAMEO: — a névváltoztatás parancsszava (RO-val rövi- 
díthető), 
új név — az állomány új neve, 
régi név — az állomány jelenlegi neve. 
Példa: 


OPEN15,8,15:PRINT4$15,"RO :PELDA — MINTA":CLOSE15 
A MINTA nevű állomány nevét PELDA-ra módosítja. 


3.5 ÁLLOMÁNY TÖRLÉSE 


Ha valamelyik állományra (adat vagy program) már nincs szükségünk, 
akkor a tárolóhely felszabadítása végett a felesleges állományt kell tö- 
rölni az alábbi paranccsal: 


PRINT$15, "SCRATCHO: név" 


ahol 
SCRATCHO: — a törlés parancsszava (SO:-val rövidíthető), 
név — a törölni kívánt állomány neve. 


Példa: 
OPEN15,8,15:PRINT315,"SO:GEPKI":CLOSE15 


A parancs hatására a GEPKI nevű állomány törlődik a lemezről. 
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3.6 A LEMEZ , RENDBE RAKÁSA" 


Ha egy lemezen sokszor adunk ki SCRATCH parancsot, vagy sok prog- 
ramot másolunk át a lemezre, akkor a lemez tartalomjegyzéke megsé- 
rülhet. Ezt elkerülhetjük, ha a lemezt időnként rendbe rakjuk a követ- 
kező paranccsal : 


PRINT$15,"VALIDATE" 


ahol 
VALIDATE — a rendbe rakás parancsszava (V-vel rövidít- 
hető). 


4. PROGRAMHIBA 


Ha egy programban adatállományt használunk, és a program valami- 
lyen hiba miatt leáll, akkor a program ugyan lezárja az állományokat, 
de nem a lemezen, ezért az állományok megsemmisülhetnek. Ennek 
elkerülésére ilyenkor mindig adjuk ki az alábbi parancsot : 


CLOSE15:0PEN15,8,15:CLOSE15 


5. ÁLLOMÁNYMŰVELETEK A CP/M OPERÁCIÓS RENDSZERBEN 


Az előbbi műveleteket a CP/M operációs rendszerben is el lehet végezni. 
Felhívjuk a figyelmet arra, hogy a CP/M lényegesen több szolgáltatást 
tud nyújtani, mint a Commodore—64 operációs rendszere. A követke- 
zőkben röviden összefoglaljuk a CP/M néhány, állományokkal kapcso- 
latos parancsát: 


— állománymásolás 
5PIP új név.BAS — régi név.BAS 


ahol 
PIP — néhány állományművelet általános parancs- 
szava, 
új név — a másolat neve, 
régi név — a jelenlegi állomány neve, 
BAS — BASIC programállományt jelöl. 


— állományok összekapcsolása 
5PIP új név.BAS — régi név7T.BAS, régi név2.BAS 
ahol 
új név — a létrehozott új program neve, 
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régi név1 és 
régi név2 — az összekapcsolandó állományok neve 
összekapcsolás sorrendjében. 


— állomány nevének változtatása 
5REN új név.BAS — régi név.BAS 


ahol 
REN — a névváltoztatás parancsszava. 


— állomány törlése : 
5ERA név.BAS 


ahol 
ERA — a törlés parancsszava, 
név — a törölni kívánt állomány neve. 


az 


5. FÜGGELÉK 


A COMMODORE-BAN HASZNÁLT 
ASCII KÓD KARAKTEREI 


PRINTS" 


DISABLESÍSHIFTI G 8 25 

ENABLESBHIET] C 9 26 

10 27 

11 /REDN 28 

12 CRSR 29 

(RETURN ] 13 GRN 30 

WITCH TO 14 /BLUJ 31 

LOWER CASE SPACE 32 
16 


" Megjelenített karakter 
"xBájt értéke 
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tép) 
fa at 
L 
oO 
u) 
fu 
zZ 
fa e 
a 
vu) 
[a e 
XX 
oO 
u) 
HK 
Zz 
c 
a 
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312 


PRINTS CHRS 


LI] 
d 
d 
ti 
— 
[ ] 
LI 
a] 
K 
FI] 
L] 
DN 
[71 
L] 
[1] 
6 
L] 
[e] 
L] 
[d 
bd 


7S 
e 


HEHEReHER 


PRINTS CHRS 


SWITCH TO 
UPPER CASE 


PRINTS CHRS I PRINTS CHRS 


u 
gy 
pb 
a 
m 


EZ 


70 öl ULNE OBHIHA]I LE 


H ! 
tea 
[1] 
[d 
[1] 
BE 
L] 
Ezzel 
pi 
[ 
LH 
Lu 
Ld 


313 


6. FÜGGELÉK 


COMMODORE-64 LISTÁK 


1. F 


19 
eg 
30 
48 
59 
69 
78 
89 
99 
199 
118 
129 
139 
140 
1509 
169 
170 


ELADAT 


REMkitidiiztázázák 

REMx: x 

REMx EREL ax 

REMx a 

REMkitíktETKEZZZREKT 

REMriZiti BEMENO ADATOK TAROLASA titát 
LET R15:1800 

LET R2:20999 

LET R3:5090 

LET R4:2909 

REMáxáiZZE ELLENALLAS SZAMITAS iikitZ 
LET KOzZíÍ/Ri1iti/R2t1ií1/R3 

LET RO51/KX 

LET R9-RŐtR4 

REMititixi EREDMENYKIIRAS síikt 
PRINT"AZ EREDO ELLENALLAS KOHMI: ":R3g 
END 
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2. FELADAT 


19 
eg 
39 
49 
sg 
eg 
7a 
sg 
99 
189 
110 
129 
1308 
149 
150 
1690 
179 
199 
1998 
egg 
ei1g 
e2zg 
e3s9 
240 
eso 
2659 
270 
eg89 
egg 
s0a 
319 
szo 
339 
349 
359 
369 
378 
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REMiktkákkttááttákákát 
REPtx ax 
REN AMOR b 3 
REMx x 


REMkiktkiiiíákítiíiáíáiákáká 
REMki4ikiiX BEMENETI RARDATOK kiíriíiá 
11384 


PRINT:PRINT 

INFUT"BRUTTOERTEK: ";B 

PRINT 

INPUT"BESZERZES EVE: "7E 

REPtkkkkk ANMORTIZACIOÓ SZ. kittiáik 

K-J-E 

IF KXAS5THEN 169 

Gú TO 199 

REMk THEN AG xx 

N-(Bxr(5-KI2/5 

GO TO 219 

REMk ELSE AG tk 

N-A. 1 

REMx IF VEG x 

REMkkikikik4 KIIRAS kiíkkttk 

PRINT" NETTO ERTEK SZAMITAS" 
PR ENE S tat TERMEL EE TREAT KERESTE E " 
PRINT:PRINT 

PRINT"BRUTTO ERTEK "2B; "EFT" 
PRINT"A BESZERZES EVE "E; "EV" 
PRINT"ELETKOR "KK: "EV" 

IF K(S5 THEN 319 

GO TO 349 

REMki THEN AG kk 

PRINT"NETTO ERTEK "S N; "EFT" 

GO TO 369 

REMx ELSE AG £ 

PRINT"NETTO ERTEK "S N; "EFT (ESZWEI 
REMx IF VEG £ 

E.NDO 


ERTEK 2" 


2.1 


19 
eg 
39 
408 
590 
69 
798 
89 
99 


199 
119 
120 
299 
219 


FELADAT 


REMKkKKkkikkákkárááákák 
REMxk kk 
REPtk AMOR í x 
REM x 
REMkkikkkkikkkkák kik 
REMŰkkitkki VEZERLES ttikáik 
GOSUB 299 
GOSUB 399 
GOSUB 509 
INPUT"TOVABB ? (IGENzZzíÍ, NEM-ZOD2 ";T 
IF T5:i THEN 808 
GO TO 869 
REMkikkikíiki EVSZAM BEOLYASAS küirtikik 
INPUT"JELENLEGI EVSZAM: ":J 


229 RETURN 


39890 
3198 


REMkkákXKX APNMORTIZACIÓ SZAMITAS tíiíiíi 
READ B.E 


329 K-J-E 


339 
340 
3508 


IF KKS5 THEN 359 
GO TO 389 
REMk THEN AG £ 


369 N-(Bx(5S-KI2/5 


370 


GO TO 499 


3809 REMk ELSE AG £ 


399 


N-A.1 


408 REMx IF VEG xt 


419 
509 


RETURN 
REMtkiiiki KIIRAS rídiíz 


519 PRINT"u4" 
s29 PRINT" NETTO ERTEK SZAMITAS" 


539 


PRINT 000 -—-—-—-— -—---- --—-- " 


549 PRINT:EPRINT 

559 PRINT"BRUTTO ERTEK "B; "EFT" 
569 PRINT"A BESZERZES EVE  ":E; "EV" 

5379 PRINT"ELETKOR "9 K: "EV" 

389 IF KCKS THEN 699 

599 GO TO 638 

699 REMk THEN AG x 

619 PRINT"NETTO ERTEK "s N; "EFT" 
62g GO TO 6509 

639 REMx ELSE AG :x 


649 PRINT"NETTO ERTEK 


659 REMx IF VEG x 
669 PRINT: PRINT 
678 RETURN 


"9: N; "EFT (CESZFEI 


ERTEK: " 


898 
8198 
szeg 
839 
8498 
s50 
859 


REMkráiiii ADATOK irirk 


DATA 
DATA 
DATA 
DATA 
DATA 
END 


25099 , 19582 598 , 1984 
3950 .,1984 , 152.1984 
seg ,1988,1619,1978 
39698 .,1979 865, 1989 
s2.,1976,785,1981 


3. F 


190 
28 
39 
49 
590 
eg 
7a 
ag 
39 
199 
129 
139 
149 
150 
1569 
179 
189 
199 
200 
e1g 
eza 
239 
240 
259 
2569 


e7a 


289 
egg 
3908 
319 
329 
339 
349 
359 
369 
370 
389 
399 
499 
410 
420 
439 
449 
450 


ELADAT 

REflkiákákiátákázáxkiá 
REMi x 
REMx JOVSZ 4 
REMr z 


REMirikkiikákkktákkikáikik ak 
REMkkiiik ADATBEOLVASAS kikkik 
INPUT"BRUTTO JOVEDELEM: ":BJ 
PRINT 
INPUT" TARSADALOM BIZTOSITAS: ":TB 
PRINT 

REMkkíáiik ADOALAP SZAMITAS kíitk 
AA-9.935xBIJ 

AASZARA-TB 

REMkái4ikk JOV. ADO SZAMITAS kírkikxk 
RENMk CASE KEZDET x 

IF AAC:-2OOON THEN 259 

IF AA--499OO THEN 289 

IF AAC:-SONOBO THEN 319 

IF AAC:I9OOOB THEN 34098 

IF AAC-2OODOBN THEN 3709 

IF AA--499999 THEN 499 

IF AAKC:S6OOOOR0N THEN 439 

GO TO 469 

REMxk 1. ESET ax 

JA-AR KO. 82 

GO TO 480 

REMx 2. ESET x 

JA:499 t(AAR-2O990 ) 0. 06 

GO TO 489 

REMkx 3. ESET x 
JAz16994(AA-499998 ) 49. 1 

GO TO 489 

REMx 4. ESET x 
JAZZ3SOOt(AA-5S9ONN ) 0.2 

GO TO 489 

REMk 5. ESET x 
JA-116909t(AA-199999 ) 0.38 
GO TO 489 

REMx 6. ESET x 
JA-4393699141(AA-2O9908 ) 48. 5 

GO TO 489 

REMk 7. ESET x 
JA-149699 4 (AA-4909099 ) x0. 6 
GO TO 489 
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450 
4a7o 
4898 
509 
3198 
szeg 
539 
549 
539 
5569 
3ro 
53898 
599 


REMx 8. ESET kt 
JIA:-2659690 t (AA -569090999  x9. 65 

REMxk CASE VEG x 

REMtkiiíkiX NETTO JOY. SZAMITAS kíkíkr 
KF-O.i1ikJA 

NJ-BJ-(TBtJATKF) 

REMkikiki NETTO JOV. KIIRAS kiíiíkíki 
F$-" FT" 

PRINT"BRUTTO JOVEDELEM "?BJ:F$ 


PRINT" JOVEDELEM ADO ": JAPFS 
PRINT"KOFRA "5 KF:F$ 
PRINT"NETTO JOVEDELEM "9: NJ:FS 
END 


4. FELADAT 


18 
29 
39 
498 
50 
69 
7a 
ga 
110 
1208 
139 
149 
159 
169 
179 
189 
190 
290 
219 
ező 
230 
240 
250 
269 
270 
2esa 
eg9 
399 
3198 
3208 
339 
349 
3509 
369 
379 
380 
399 
499 
419 
429 
430 


REMikiíiítíátázátákááik 
REM: x 
REMx KESZL xk 
REPtk hd 
REMrtiriütktiüzttáikárák 
REMiitiáii KESZLET MASOLAS $tiiri 


READ K.,AR 
REMkíkikii MENU Híikdiik 
PRINT "u4" 
PRINT: PRINTS PRINT: PRINT 
PRINT" KESZLETNYILYANTARTAS " 


PRINT: PRINT 

PRINT"(1) BEVETELEZES" 

PRINT"(2) KIADAS" 

PRINT"(3) BEFEJEZES" 

PRINT 

INPUT"MELYIKET VALASZTJA ";:D 

IF D-i THEN GOSUB 250 

IF 0-2 THEN GOSUB 4409 

IF D-3 THEN GOSUB 759 

IF D-3 THEN 969 

GO TO 119 

REMkikiii BEVETELEZETT M. kiíií4ii 

PRINT "a4" 

PRINT: PRINT 

INPUT"A BEVETELEZETT MENNYISEG: ":BM 
K-KTBM 

REMtkiáiiki ERTEK SZAM. kiíiáiitik 

MmA-BM 

GOSUB 909 

RENbkkkkki ADATKIIRAS (B) irííkii 

PRINT "a4" 

PRINT: PRINT 

PRINT" ANYAGBEVETELEZES" 
PRINT: PRINT 

PRINT"A BEVETELEZETT MENNYISEG: ":BM 
PRINT 

PRINT"A BEVETELEZETT ERTEK:?: ":ER 
PRINT: PRINT: PRINT 

INPUT"HA BEFEJEZTE, NYOMJON LE EGY GOMBOT 
RETURN 


1";FSs 
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449 REMttitkiáíii KIADOTT M. $zr£$ 

468 PRINT"iJ" 

478 PRINT: PRINT 

488 INPUT"A KIADOTT MENNYISEG: ":KM 
499 IF KMDIK THEN 519 

599 GO TO 559 

519 REMx THEN AG 4 

529 PRINT: PRINT 

539 PRINT"ENNYI NINCS !" 

549 GO TO 489 

558 REMx ELSE AG 4 

569 K-K-KM 

579 REMk IF VEG x 

589 REMkírtKX ERTEK SZAMITAS kiíkíik 
594 MAzKM 

699 GOSUB 993 

629 REMtítki ADATKIIRAS (CK) kíkkixk 
S39 PRINT"4" 

640 PRINT: PRINT 

659 PRINT" ANYAGK I ADAS " 

669 PRINT: PRINT 

679 PRINT"A KIADOTT MENNYISEG: ":KM 
S89 PRINT 

6399 PRINT"A KIADOTT ERTEK: ";ER 

719 PRINT: PRINT: PRINT 

720 INPUT"HA BEFEJEZTE, NYOMJON LE EGY GOMBOT !":F$ 
739 RETURN Í 
750 REMtái4iti KESZLET ATIRAS £k4t4kkt 
7609 PRINT"í4" 

770 PRINT"NE FELEJTSE ATIRNI A KESZLETET !" 
789 PRINT 

799 PRINT"5349 DATA":K 

7935 PRINT: PRINT 

899 REMtikik4t BEFEJEZES kiíkárk 

818 PRINT" VEGE" 

S28 RETURN 

999 REMkkiiíkiki ERTEKSZAM. SZUBRUTIN ktíkí4tX 
319 ER-MAKFAR 

929 RETURN 

9339 REMásáíáííi ADATOK kárzrkí 

949 DATA 199 

359 DATA 2.3 

969 END 
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5. F 


19 
eg 
39 
48 
59 
eg 
79 
eg 
99 
199 
119 
129 
139 
1408 
159 
169 
179 
189 
199 
egg 
210 
e3s0 
240 
250 
2690 
270 
ego 
ege 
390 
319 
359 
3698 
3798 
380 
390 
499 
410 
429 
440 
458 
469 
470 
480 


ELADAT 


REMsrrkkirkiáikitááká 
REM a 
REM: KAMAT x 
REM x 
REMkitráZERKEKKKKKÁKÁK 
REMiídir4i ADATBEOLV. $áíririí 
INPUT"A KOLCSON OSSZEGES ":F 
IF FC: THEN 1908 
GO TO 138 
REMkxk THEN AG 4 
PRINT: PRINT"CSAK POZITIV LEHET !" 
GO TO 798 
REMx IF VEG £ 
INPUT"KAMATLAB (/Z98 "3?K 
IF KK: THEN 170 
GO TO 2909 
REMkx THEN AG £ 
PRINT? PRINT"CSAK POZITIV LEHET !" 
GO TO 149 
REMx IF VEG x£ 
K:K/100 
REMkáiki$kkr RESZLET SZAMITAS $kízzái 
K1:K/i1i2 
R-FxiK1/C1-C1i1/CItK1D$Yi2)3 
REMáittir HK, CK, FJ, SZAM. ttíkiki 
PRINT: PRINT 
PRINT"RESZLET" , "KAMAT" , "VISSZA-" , "KOLCSON" 
PRINT"OSSZEG" , "OSSZEG" , "FIZ. 0." , "OSSZEG" 
PRINT 
REMk CIKLUS KEZDET tf 
FOR H-si TO 1e 
HK-FxK1 
CK-R-HK 
F:F-CK 
REMkákiáiki OSSZEGZES kiiíítik 
SR:-SRtR 
SK-SK tHK 
SC:-SCtCK 
REMkiikii KIIRNS srikiíi4 
R5INT(Rtú.52 
HK:INT(HKtFO.5) 
CK-INT(CKIO.5) 
FzINT(CFtOa.5) 
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498 
59098 
318 
339 
549 
5350 
s569g 
5ro 
5389 
5998 


PRINT R.HK.CK.F 

NEXT H 

REMkx CIKLUS VEG xk 

REMákiáíáix OSSZEG KIIRAS kiikkx 
PRINT 

SR-INT(SRtO.52) 
SK:INT(SKtO.52 
SC5-INT(SCIRB.5) 

PRINT SR.SK.SC 

END 


6. FELADAT 


19 REMikikítiíáííáíáíkááákáká 


29 REMr a 
39 REMxrk MERES kk 
49 REMk x 


59 REMiriáíkdkkikkkáktkákíkik 

69 REMkáíKkKÁKK ADATBEVITEL íkíiikíííz 

79 DIM TcCií1gAa) 

89 PRINT"" 

98 PRINT"ADATBEVITEL" 

1998 PRINT 

119 INPUT"A MERESEK SZAMA: ":M 
128 PRINT: PRINT: PRINT 

138 REMk CIKLUS KEZDET x 

1409 FOR I-1i1 TO M 

159 PRINT"A(CZ)"2:IZ". ADAT KÖVETKEZIK :"; 
169 INPUT TKI) 

179 PRINT: PRINT 

189 NEXT I 

199 REMkxk CIKLUS VEG £ 

299 REPÜkkkikk ATLAGSZAMIÍTAS skökíkákak 
ei1g sz0 

2209 REMkX CIKLUS KEZDET £ 

2309 FOR Izi TO M 

240 SzZzS4TKI) 

259 NEXT I 

269 REMk CIKLUS VEG xk 

279 AzS/M 

309 REMkíkEk ATLAGKIIRAS kiítkxk 
319 PRINT"í3" 

3208 PRINT, "A MERES EREDMENYEI" 
339 PRINT, "- ----—- --——-—-— 
348 PRINT: PRINT 

359 PRINT"A MERESEK SZAMA: "s; 
369 PRINT 

379 PRINT"AZ ATLAGOS HOMERSEKLETE ":AZ" CELSIUS FOK" 
499 REMkikkikki SZORASSZAMITAS kiiiik 
410 REMxr CIKLUS KEZDET xk 

429 FOR Iz1i TO M 

430 K-K4(A-T(I))fe 

449 NEXT I 

4590 REMk CILUS VEG 4 

468 D2-SGRCK/M) 
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509 REMkiíítíi SZORAS KIIRAS kríkíá3X 


siíg PRINT 
52E9 PRINT"AZ ERTEKEK SZORASA: ";:De 


339 END 


7. F 


10 
eg 
309 
49 
sa 
69 
7a 
eg 
g9 
199 
200 
219 
eza 
230 
e4ga 
250 
2659 
309 
319 
seg 
3398 
349 
359 
369 
370 
380 
399 
499 
3198 
428 
438 
448 
sag 
310 
szg 
sza 
549 
3509 
53569 
57ga 
aga 


ELADAT 

REMkákkkKKkkKKkKkKkkkk 
REM x 
REMk MSZK x 
REMx xx 


RE Ila ak ok ak ak ak ák ák kak ák kk ak kk 

REMkiiíkriíiki FELADAT VEZ. kikkik 
OIM K(I1gO 3) 

GOSUB 290 

GOSUB 399 


GO TO 1958 
REMkkkkk DATUM BEOLY. ikákikok 

INPUT"EV: ";:EV 

PRINT 

INPUT"HO: ":HO 

PRINT 

INPUT"NAP: ": NAP 

RETURN 

REPkkkkk MENU kikXikik 

PRINT"í1" 

PRINT: PRINT 

PRINT" KIFIZETESI MUVELETEK " 


PRINT: PRINT 

PRINT" (1) KIFIZETESI ADATOK BEIRASA" 
PRINT 

PRINT" (2) KIMUTATAS KESZITES" 
PRINT: PRINT 

INPUT"MELYIKET VALASZTJA":D 

IF 0-1 THEN GOSUB 5009 

IF 0-2 THEN GUÚSUEBE 6Ag 

IF D-2£ THEN 4409 

GO Tü 3090 

RETURN 

REMkkikikk KIFIZ. ADATOK ríkkik 
PRINT"ú4" 

N-Nti 

INPUT"MUNKASZAMI: ":K(N,1) 

PRIINT 

INPUT"OSSZEG: "7:K(N,2) 

PRINT 

INPUT"BIZONYLAT SORSZÁM: ":K(NM,32? 
RETURN 
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sag 
S61g 
szg 
639 
709 
719 
7eg 
730 
7409 
759 
760 
7708 
7809 
7ga9 
sag 
819 
seg 
s39 
840 
s5sg 
865690 
879 
880 
8398 
gag 
g1ig 
329 
339 
g94a 
359 
969 
970 
3389 
399 
1999 
1919 
1920 
1930 
1949 
1959 


REMkkktk KIMUTATAS VEZ. kikökit 
GOSUB 799 
GOSUB 999 
RETURN ( 
REMkik4ikXk RENDEZES kríiki 
FG 
FOR Izi TO N-1 
IF KCI,1)3KCI4$1,1) THEN 750 
GO TO szX 
REMk THEN AG 4 
SMEKKI,1) 
KCI,1)5KCIt1,1) 
KCI$1,195ESM 
SF5-K(I,2) 
KCI,2)SKCIt1,2) 
KCIt1,2)ESF 
SBzKKI,3) 
KCI,3)SKCIt1,3) 
KCIt1,3)-SB 
REMk IF VEG 4 
Fs1 
NEXT I 
IF Fz1i THEN 710 
RETURN 
REMkikikkiki4 KIIRAS kiiíkkrk 
OPENE , 4 
PRINTHZ," NAPI KIFIZETESEK" 
PRINTHEZ , " ---—- -—-- " 
PRINTHA: PRINTHZ 
PRINTHZ, "KELT, "FEV?".EV":HOZ". HOTSNAS". NAP" 
PRINTHZ 
PRINTHZ , "MUNKA-" : TABC 10): "KIFIZETETT": TABCIO): "BIZ. 
PRINTH2 , "SZAM": TAB ( 12); "OSSZEG": TAB( 13): "SORSZ . " 
PRINTHZ 
FOR Izi TON 
PRINTHZ,KCI,19:TABCI2)5KKI,2I:TABC1I4):KKI,3) 
NEKT I 
CLOSEZ 
RETURN 
END 
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8. FELADAT 


19 
eg 
39 
48 
598 
69 
7o 
sa 
309 
199 
119 
139 
140 
150 
169 
189 
199 
290 
219 
220 
e30 
240 
259 
25650 
270 
280 
egg 
390 
3198 
320 
339 
349 
335398 
36560 
370 
3809 
398 
499 
419 
4329 
43a 


REMikkikikkkítáiááákikáák 


REM: x 
REM CSATA hj 
REPtk xk 


REMkikiíkidikikrákkáákkrá 
REMikikík CSATA VEZ. kiiííkákXK 
GOSUB 139 
GOSUB 189 
GOSUB 599 

GOSUB 699 

Güú TO 1700 

REMtáxkit KEZDO MUV. kiíkkX 
GOSUB 799 

GOSUB 809 

RETURN 

REMkiáiki4ir KEZDŐ LOVES kikrXK 
PRINT:PRINT 

INPUT"AZ 1. LOVES KOORODINATAI (X,Y2:":XkE,Y2 
IF Z2eXi THEN 2308 

Gü TO 260 

REMx THEN AG xk 

PRINT"AZ A£K1 NEM LEHET!" 
GO TO 209 

REMx IF VEG £ 

IF X2:20 THEN 238 

GO TO 320 

REMx THEN AG kk 

PRINT"AZ X-.29 NEM LEHET!" 
GO TO 209 

REMx IF VEG £ 

IF Y2eK1i1 THEN 359 

GO TO 3809 

REMk THEN AG ax 

PRINT"AZ YX1 NEM LEHET!" 
GO TO 299 

REMx IF VEG x£ 

IF Y2é;eg THEN 419 

GO TO 4409 

REMx IF VEG kk 

PRINT"AZ Y:20 NEM LEHET!" 
GO TO 299 
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440 
450 
460 
479 
480 
399 
519 
520 
539 
549 
559 
360 
698 
619 
629 
s39 
5649 
ssg 
669 
67a 
680 
699 
700 
719 
720 
7309 
740 
750 
760 
770 
780 
sog 
818 
seg 
839 
859 
859 
870 
999 
g19 
geg 
93398 
9349 
959 
a59 
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REMx IF VEG x 

KEZINT(X2) 

YSEZINT(Y22 

L:1 

RETURN 

REMtáitZX TOVABBI LOVES ktkikx 

GOSUB 859 

GOSUB 9899 

GOSUB 1199 

IF (L5153 OR Tsi THEN S60 

GO TO 5319 

RETURN 

REMxáXZáiX BEFEJEZES kttkk 

IF T:-1 THEN 639 

GO TU 669 

REMx THEN AG kk 

GOSUB 1209 

GO TO 689 

REMx ELSE AG £ 

GOSUB 1399 

REMx IF VEG 4£ 

RETURN 

REMkkiáiZi JATEKSZABALYOK $kiíikíkik 

PRINT "44" 

PRINT"EGY 29X29-AS CSATRMEZOBEN KELL EGY" 
PRINT" ISMERETLEN HELYEN LEVO HAJOT ELTALALNI" 
PRINT"A CELPONT KOORDINATRINAK FHEGADASAVAL ." 
PRINT"A PROGRAM A BECSAPODAS ES A HAJO" 
PRINT" TAVOLSAGAT KOZLI." 

PRINT"A HAJOKRA LEGFELJEBB 15 LOVEDEKET LOHET KI." 
RETURN 

REMtárXiX HAJO HELYZETE kítikik 
XI-INT(RNO(B)x29) ti 
YISZINT(RNO(O) 1290) ti 

RETURN 

REMtaxi4i LOVESSZAM VIZSGALAT tikiíkik 


IF L3:1 THEN GOSUB 1499 
RETURN 

REMxiáiX CSILLAG KIIRAS kríkii 
PRINT "44" 

IF 2£9-Y2E:zO THEN 369 

FOR I-1i TO 29-YEe 


PRINT" WWW" ; 
NEXT I 
IF Xeézi THEN 1900 


979 FOR J-1 TO X2-1i 
3890 PRINT"W" ; 
998 NEXT J 


1029 
1919 
1199 
1119 
11209 
1139 
1149 


1150 
1160 


1170 
1188 
11998 
1299 
1219 
1220 
1399 
1319 
1329 
1339 
14900 
14198 
1415 
1420 
1439 
1440 
1459 
14698 
1470 
1480 
1499 
1599 
1510 
1529 
1539 
1549 
1550 
1560 
15709 
1589 
1590 
1699 
1619 
1629 
1700 
1719 


PRINT "2" 

RETURN 

REMkiáíráiki ERTEKELES ííáiki 
R:INT(SAR( (X2-XI1IT2t(Y2-YI)12)) 
IF R-d THEN T-i 

FOR I-1 TO Y2 

PRINT 


NEXT I 
L:5sLti 


PRINT"A BECSAPODAS TAVOLSAGAS ":R 
PRINT"A":L5". LOVES KÖVETKEZIK." 


RETURN 
REMkátkikiki TÁLALAT tkiíkíki 


PRINT"ON ELSULLYESZTETTE AZ ELLENSEG HAJOJAT!?" 
RETURN 

REMkkkiáii NEM TALALT kikikikik 
PRINT"EZ NEM SIKERULT!" 
PRINTT?A HAJO A "EK." ,":Y13 "KOORDINATAKON ALLT!" 
RETURN 

REMkkKkKkF LOVES kríkikik 

GET As 

IF A$z"" THEN 1419 

IF A$z"P" THEN 1479 

IF A$z"L" THEN 1519 

IF A$z":" THEN 1559 

IF Asz"." THEN 1599 

GOTO 1419 

REMk P GOMB 4 

IF Y2-28 THEN Y2z-i: GOTO 1629 
rezYeti 

GOTO 1629 

REMk L GOMB: 

IF Xéz1i THEN X25-2O:GOTO 1629 
Xx2-x2-i 

GO TO 1629 

REMk : GOMB 4 

IF X2-20 THEN X2zi: GO TO 1629 
KEzXEti 

GO TO 1629 


"REMx . GOMB tk 


IF Y2-1i1 THEN Y2-eg:GO TO 1629 
vYrezr-Yre-1 

RETURN 

PRINT"VEGE" 

END 


9/1. 


190 
eg 
sa 
49 
so 
69 
79 
898 
39 
199 
119 
129 
159 
149 
150 
299 
e19 
ezg 
238 
248 
e5a 
e6g 
270 
es9g 
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FELADAT 


REMkikikikkiáíkkáákkákiká 

REM: kk 

REM: LETRE x 

REPtk ax 
REMkiíikiidiikátkrákákákik 

REMkkikkk MEGNYITAS kiíri 

OPENEZ , 8 ,2,."B: ANYAG, SW" 

REMtiikiáíi ADATBEOLVASAS kiíkikxk 
PRINT"a4" 

INPUT"AZONOSÍTO: ":A 

PRINT" 12345678901234567899" 
INPUT"NEWV:3 "; 

INPUT"MENNYISEGI EGYSEG (KG, DB, MI: ":M$ 
INPUT"MENNYISEG: "; 

INPUT "ELSZAMOLO AR: ":AR 
REMkkkkik ALLOMANYRA IRAS kiíkrkXk 
PRINTH2,AFP" ,"; 39.52 MHz 5, 9 MET, "AR 
PRINT 

INPUT"FOLYTATJA ? (I/ND5:":FS$ 

IF F$-"N" THEN 2608 

GO TO 89 

REMkkkkk LEZARAS kkríkíkik 

CLOSEZ 

END 


9/2. 


. 18 
eg 
39 
40 
sg 
199 
119 
129 
139 
1498 
159 
159 


179" 


189 
199 
zag 
219 
zzo 
238 
240 
e50 
z56g 
27Oo 
239 
e38 
399 
319 


FELADAT 


REMKERKEREKRERKKKKKKÁ 


REMxk x 
REPMx MENU x 
REMxk x 


REMSEHKKKKKKKKKKKXKI 
REMkikkiiK MENU KIIRAS kikkik 


PRINT"44" 

PRINT: PRINT: PRINT 

FRINT"A VALASZTHATO MUVELETEK:" 
PR TNS et EKB NEEE EB VER: NEZ ESETE TÁST SETE zi 
PRINT 

FRINT."(12 KESZLETJELENTES" 
PRINT 

FRINT,"(2£2) BEVETELEZES" 

PRINT 

PRINT,"(32 KIADAS" 

PRINT 


PRINT,"(42 BEFEJEZES" 

PRINT: PRINT 

INPUT"MELYIKET VÁLASZTJA 7"5FU 
REM$káikXKX PROGRAM HIVAS kiíkíkXK 
REMx CASE. KEZDET xX£ 

IF FUu-1i1 THEN CLR:LOAD"KESZL" ,§3 
IF FU-Z THEN CLR:LORD"BEVET" ,§ 
IF FU-3 THEN CLR:LORD"KIVET".8 
REM4 CASE VEG £ 

END 


335 


9/3. FELADAT 


19 REMiiídiiíítáíztáíítázt 


28 REMx x 
39 REMk KIVET 4 
439 REMx a 


59 REMkiittkkákkrKkK 
69 REMkiíáiít CIM KIIRAS tíkákk 

78. PRINT "7" 

89 PRINT," "ANYAG KIVETELEZES" 

98 PRINT: PRINT: PRINT 

199 REMkkáíZxk AZON. BEOLV. ES ELL. ktitiitt 
119 INPUT"AZ ANYAG AZONOSÍTOJA: ":AR 
12eg T-O 

139 OPENZ 8.2, "BO:ANYAG,S./R" 

1489 INPUTH2.RA,NS$,M$.,.MI 

159 VJ:SST 

169 IF AAZRA THEN 1989 

17ú GO TO 2198 

189 REMXx THEN AG kk 

199 T-1 

eng GO TO 230 

219 REMtk IF VEG ax 

eeg IF VJ-0 THEN 149 

239 CLOSER2R 

249 IF T-1i THEN 329 

245 PRINT 

2508 PRINT"HIBAS AZ AZONOSITO!" 

2568 PRINT 

279 INPUT"JAVITHATO ? CI/N) ":JAS 
299 IF JAS$zZ"7TI" THEN 119 

399 GO TO 399 

320 REMtkkíátiz MENNY. BEOLY. k4kkik 

339 INPUT"A KIVETT MENNYISEG: ":KM 
340 IF M1:KM THEN 369 

359 GO TO 399 

3609 REMk THEN AG x 

379 PRINT: PRINT"A MENNYISEG KIADHATO. " 
389 GO TO 429 

399 REMxk ELSE AG k 

499 PRINT"CSAK "Mi: "ADHATO KI !!" 
4190 KM-zMIi 

429 REMkr IF VEG x 

430 MM-Mi-KM 
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4508 
4569 
4708 
499 
498 
5998 
519 
5eg 
539 
549 
s5sa 
5608 
5370 
589 
539 
egg 
619 
s39 
649 
ssa 
6590 
67oa 
680 
699 
7908 
719 
7eg 
7398 
749 
750 
769 
770 
s00 
sas 
819 
8208 


REMktkiá4 MODOSITAS trk4t 
OPEN3 , 8.3, "B:ANYAG,S/R" 

OPEN4 , 8 ,4 , "OSATM, S, WW" 
INPUTH3 , AZ ,NZ$ ,M2$ , M2 , AR 

VJEST 

IF AZ-AA THEN M2zMM 

PRINTH4 , AZ: " , "S NPBI " , "SMEOGI " , "MRS", "AR 
IF VJ:-G THEN 480 

CLOSE3 

CLOSE4 

OPEN1I5,8,15 

PRINTH15, "SO:ANYAG " 
PRINTH15, "RO: ANYAGSATM" 

CLOSE15 

REMikiári KIVET BIZ. kíiiikX 

INPUT"A MAI DATUM KEV, HO, NAP): "5EV,HO,NA 
OPENS5 , 4 

PRINTH5 , , "ANYAGKIVETELI JEGY" 

PRINTHS, ,"—-—-——-—-—-—-— ---- s 

FOR Izi TO 4 

PRINTHS 

NERT I 

PRINTHS, "KELT, "3EV3". EV"SHOZ". HOS"SNAZ". NAP" 
PRINTHS 

PRINTHS, "AZ ANYAG AZONOSÍTOJA: ":RA 
PRINTH5, "AZ ANYAG MEGNEVEZESE: ";N$ 
PRINTH5, "MENNYISEGI EGYSEG: ":M$ 
PRINTH5., "KIVETT MENNYISEG: ":KM 

PRINTHS: PRINTHS5: PRINTHS 

PRINTHS, , , , 1———-——-—— ú 
PRINTHS, 727" ALAIRAS" 

CLOSES 

REMktttr MENU HIVAS k4k4t 

CLR 

LORD"MENU" ,8 

END 
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10. 


18 
eg 
38 
49 
58 
69 
70 
89 
98 
100 
110 
129 
139 
149 
159 
169 
170 
189 
209 
219 
eeg 
2309 
249 
esa 
269 
e7a 
280 
e38 
398 
319 
320 
339 
349 
3508 
369 
370 
388 
338 
4099 
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FELADAT 


REMkidiídíkátráákákkáj 


REM: x 
REM GPKBE x 
REMk x 


REMkikiíikíkikáüztáárkkáák 
REMktiáiii TERULET KIJELOLES$kái4k$EXK 
KOg-299x654 

POKE 20940.,299 
K1-20901x64 

POKE 2941.,291 
K2:29216564 

POKE eg4e ege 
K3:-2034164 

POKE 29843.293 
K4-29044164 

POKE 29044 ,294 
K5-209516564 

POKE 2945 .2e95 
REMtáitxrk DEFINIALAS kikríáii 
D-Kg 

GOSUB 19009 

D-K1 

u-15 

GOSUB 1299 

0-Ke 

GOSUB 190090 

D-K3 

GOSUB 190090 

0-K4 

GOSUB 1999 

D-K5S 

U-2e4 

GOSUB 1209 

REMtiááii SZINBAJTOK ALLITASA tírkii 
sz:53287 

REMx CIKLUS KEZDET: 
FOR I:-O TO 5 

POKE SZtI.2 

NEXTI 


419 
439 
449 
469 
478 
489 
498 
599 
519 
seg 
559 
568 
579 
589 
599 
699 
619 
629 
650 
650 
67a 
680 
eg9 
799 
719 
720 
730 
7498 
759 
760 
770 
789 
799 
egg 
1999 
1919 
19290 
1939 
1940 
1950 
1960 
1979 
1980 


REM CIKLUS VEGk 

REMtúttrti KETSZEREZES kiíiíítik 

POKE 53£271.63 

REMtáidikii FUGGOLEGES ELHELYEZES tiíkk 
POKE 53249.,148 

POKE 53£251.,106 

POKE 53£253.,148 

POKE S3255.,186 

POKE 53£2£57,148 

POKE. S3259.,196 

REMtátx4iki VIZSZINTES ELHELYEZES tiíiii 
POKE 53248.,129 

POKE S3259.,129 

POKE 53252. 298 

POKE 53£254.,2909 

POKE 53256. 24 

POKE. S3258 24 

POKE 53264.48 

REMkiáiitik BEKAPCSOLAS ríiiáikák 

PRINT"a4" 

POKE 53269.63 

REMáítik4i4ri SZÖVEGEK tikiki 

PRINT" MAGYARORSZAG GEPKOCSI BEHOZATALA" 


PRINT" 1977, 1989, Í1S583EVEKBEN" 
PRINT" (EZERDB ) " 
PRINTSPRINT 


PRINT.34.3,119.5.89.1 
REMXURES SOR CIKL. KEZDET:k 
FOR I-zi TO 11 

PRINT 

NEXT I 

REMk CIKLUS VEG x£ 
PRINT, 1977 ,1989,1983 

GOTO 1359 

REMkákx TELJES KITOLTES tik 
REMXCIKLUS KEZDET xk 

FOR 1-O TŰ 62 STEP 3 

POKE DtI.255 

POKE ODOtIt1.9Xg 

POKE DtIt2é,O 

NEXT I 

RE.-Mxi CIKLUS VEG xk 

RETURN 
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1299 
1218 
1220 
12309 
1240 
12e59 
1269 
12708 
1289 
1299 
13909 
1519 
1328 
1339 
1358 


REMkxáZ4i RESZLEGESKITOLTES kiki 
REMSZNULLAZOCIKL. KEZDET:xk 
FOR I:A TO U-i 

POKE DtI.G 

NE.XT I 

REMxr CIKLUS VEGE 

REMt: KITOLTESICIKL. KEZDET: 
FOR I-U TO 62 STEP 3 

POKE. DtI 255 

POKE DtIt1.g 

POKE DtI4H2.0 

NEXT I 

RE-Mx CIKLUS VEG 4 

RETURN 

END 


HT-IO8OZ LISTÁK 


2.1 


19 

28 

39 

30 

50 

68 

78 

88 

98 

190 
1108 
1208 
2808 
210 
228 
349 
310 
328 
3308 
3408 
358 
360 
370 
388 
39709 
4a98 
410 
3898 
519 
328 
53898 
5349 
259 
568 
9378 


FELADAT 


REMEERZEREKZKHERERKREKIJ 


REMx 3 
REM: AMORI1 kal 
REMx x 


REM BE 3 36 36 36 36 36 3E JE JE JE JEE KE 9 9E 
REMxxxxzx VEZERLES sxzxxr 
GOSUB 2899 
GOSUB 349 
GOSUB 589 
INPFUT"TOVÁBB ? (IGEN-1, NEM-B? ";T 
IF T-1 THEN 88 
GOTÜ 8608 
REMxxxXEXX EVSZÁM BEOLVÁSAS HxXX3EK 
INPUT" JELENLEGI EVSZAM: ";J 
RETURN 
REMgxzxXxXX EVSZAM BEOLVÁSAS XXEXXEK 
READ BE 
K5J-E 
IF KX5 THEN 359 
GOTO 389 
REMx THEN AG X 
N5(Bx(5-K2l/5 
GOTO 4640 
REMx ELSE AG 
NB .1 
REMXk IF VEG £ 
RETURN" 
REMXxxxXX KIIRAS xexxx 
CLS 
PRINT" NETTÜ ERTEK SZAMITÁS" 
Lszjé 0 62 1 JE ANNE ré esz zatsadllő szészésstssíselszéssássástsatzteeani m8 
PRINT: PRINT 
PRINT"BRUTTO ERTEK "B: "EFT" 
PRINT"A BESZERZES EVE " 3E;"EV" 
PRINT"ELETKÖOR " SK; "EV" 
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388 
2708 
6400 
618 
éázo 
638 
649 
á58 
669 
678 
398 
819 
329 
839 
349 
558 
5369 


IF KÁS THEN 6408 


GOTO 638 

REMx THEN AG X 
PRINT"NETTOÖ ERTEK 
GOTO 658 

REMg ELSE AG X 
PRINT"NETTÜ ERTEK 
REMXx IF MEG X 


PRINT: PRINT 
RETURN 
REMSSzxzEx ADAÁATUK XzxzxxR 


DATA 
DATA 
DATA 
DATA 
DATA 
END 


2588,1782,590,1984 
3050,1784,162,1784 
529,1989,1618,1978 
3768,1777,865,1988 
32,1976,785,1981 


un NN; "ERETT" 


" 9N;"EFT (ESZMEI ERTEK YI 


5. FELADAT 


198 
28 
39 
48 
58 


REJM 5 3E dt 3 3E JE JE ZE EZÉ JE JE JE IE JE JE 

REMx had 

REM KAMÁT ha 

REM 3 

REM 36 36 3 36 3E JE JE E JE JE JE IE JE JÉ JE 9E 

REM$kSzxxzXE ADÁTBEOLV. KSEXEXR 
INPFUT" A KÖLCSÖN ÜSSSZEGE: ";F 
IF F--8§ THEN 198 

GOÜTO 138 


REMx THEN AG 

PRINT :FPRINT"CSAK POZITIV LEHET ! 
GOTO 78 

REMXx IF VEG £ 

INPUT" KAMSTLAB (As: ":K 

IF Kízü THEN 178 

GOTO 299 

REMx THEN AG § 

PRINT: PRINT"CSAK POZITIV LEHET 
GOTO 140 

REMg IF VEG £ 

K-K/190 


REMxxzxzxX RESZLET SZAMITÁSA XEXIKI 


K1-K/12 
R5FXSK1/C1—-(1/(1tK1VAl22 2) 
REMSEXxXEX HK, CK, FJ, SZAM EXXZR 
PRINT: PRINT 


PRINT" RESZLET" , " KAMAT" , "UI SSZA—" 
PRINT"OSSZEG" , "OSSZEG", "FIZ. 0." 


PRINT 

REMx CIKLUS KEZDET £ 
FOR Hti TO 12 

HK-FxKI1 

CK5R-HK 

F-F-CK 

REMgxxXXX ÜSSZEGZES XEXXEX 
SR:SRtHR 

SKSSKtHHK 

SC-SCtrCÜK 

REMxXEZXZXEX KIIRAS XEFFEZ 
R5:INT(Rtúü.52 
HK-INT(HKtú.5) 
CKSINT(-(CKtA.52 
FzINT(F4tú.51 


, " KOLCSON" 
, " OSSZEG" 
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478 
308 
518 
2339 
549 
2598 
560 
278 
5388 
5370 


PRINT R,HK,ECK,F 

NEXT H 

REMx CIKLUS VEG £ 

REMxxzzXxXx ÜSSZEG KIIRAS gxxxx 
PRINT 

SRSINT(SRtü.5) 
SKSINT(SK41ü.5) 
SCsINT(SCrA.5) 

PRINT SR,SK,SC 

END 


7. FELADAT 


REM ze 3 
REM: MSZK e 
REM x 
REMEZZEEZEZEZEKEZEHKEK 
REMxEXxZX FELADAT VEZ. FEXZEX 
DIM K(1ü0,3) 
GOSUB 298 
GOSUB 3088 
GOTO 1958 
REMegxxxXx DATUM BEOLV.Sg4XxX 
INPUT"EV: "EV 
PRINT 
INPUT"HO: ";HO 
PRINT 
INPUT"NAP: "gNA 
RETURN 
CLS 
PRINT: PRINT 
PRINT" KIFIZETESI MUVELETEK" 
PRINT:PRINT 
PRINT" (1) KIFIZETESI ADATOK BEIRASA" 
PRINT 
PRINT" (2) KIMUTATAÁS KESZITES" 
PRINT: PRINT 
INPUT"MELYIKET VALASZTJA ";D 
IF Ds1 THEN GOSUB 598 


318 IF D-2 THEN GOSUB 6B88 


IF D-2 THEN 448 


439 GOTÚ 388 


RETURN 


509 REM$kXgxEX KIFIZ. ADATOK xXXXK 


ÜCLS 

N:Nt1 

INPUT"MUNKASZAM: ":KÉI,129 

PRINT 

INPUT"ÖOSSZEG: ";5K(I,2) 

PRINT 

INPUT"BIZONYLÁAT SORSZÁM: ":K(I,32 


RETURN 
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óbB REMxEEXZX KIMUTÁTAÁS VEZ. xXEXEZEP 
318 GOSUB 708 

éz GOSUB 799 

638 RETURN 

780 REMXxZXZXZX RENDEZES XxXXKXZ 
719 F-B 

720 FOR: I-i TO N-i 

739 IF K(I,125K(It1,1) THEN 758 
740 GOTO 888 

758 REMkg THEN AG x 

76 SM-EK(fI,12 

770 K(I,125-K(It1,12 

788 K(It1,125-5M 

798 SF-K(I,23 

809009 K(I,29—-K(It1,23 

818 K(It1,2)-5SF 

szú SB-K(I,32 

838 K(I,395K(KIt$t1,3? 

848 K(It1,3055B 

858 REMXkx IF VEG X 

ség F5-1 

878 NEXT I 

8908 IF F-—-i THEN 719 

898 RETURN 

9799 REMXxEXEZX KIIRÁS xzxEX 


9718 LPRINT" NAPI KIIFIZETESEK" 

sz LPRITTT Tess sessnessássátátsásá setén új 

738 LPRINT: LPRINT 

748 LPRINT"KELT, ";EV;". EV" :HO;". HO" GNA;". 
958 LPRINT 

768 LPRINT"MUNKA—-" , "KIFIZETETT" , "BIZ." 

978 LPRINT" SZAM" , "OSSZEG" , "SORSZ." 

788 LPRINT 


998 FOR I51 TON 

1888 LPRINT KÉI,19,K(I,2),K(I,3) 
1810 NEXT I 

1828 RETURN 

1958 END 
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8. FELADAT 


18 REMSEZRZRERZZEZKZZEKZKEREKB 


20 REMx La 
38 REMS CSATA x 
ag REM3Z há 


58 REMERZEZEKEZEKERERERKBE 
ág REMSZXXEX CSATA VEZ. KERET 
7 GOSUÚB 139 

9398 GOSUB 188 

978 GOSUB 599 

19 GOSUB 688 

119 GOTO 1708 ül 
138 REMXSxzXZXX KEZDÜ MUUV. XXXXEX 
146 GOSUB 7080 

159 GOSÚB 8408 

168 RETURN 

188 REMXSxzZZX KEZDÜ LOVES XEZzXXK 
199 PRINT: PRINT 

280 INPUT"AZ 1. LÖVES KÖOÜRDINATAI (X, Y2 "-XAZ,TYZ 
219 IF X2X1 THEN 238 

229 GOTO 260 

238 REMx THEN AG xx 

240 PRINT"AZ X£1 NEM LEHET!" 
258 GOTO 299 

Zé REMx IF VEG Xx 

278 IF X2-12 THEN 270 

289 GOTO 328 

298 REMXx THEN AG x 

389 PRINT"AZ X:12 NEM LEHET!" 
314 GOTO 2808 

329 REMXx IF VEG Xx 

338 IF Y2Á1 THEN 358 

349 GOTO 388 

359 REMx THENN AG 3 

360 PRINT"AZ YXi NEM LEHET!" 
378 GOTO 298 

388 REMgxg IF VEG £ 

398 IF Y25:12 THEN 418 

499 GOTO 4408 

418 REMXx IF VEG £ 

428 PRINT"AZ Y?12 NEM LEHET!" 
439 GOTO 2809 I 
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REMx IF VEG 

XZZINT(XZ? 

YZSINT(Á(Y2? 

L5-1 

RETURN 

REMkxzxzxIX TOVÁBBI LOVES txxXXE 
GOSUB 3589 

GOSUB ?88 

GOSUB 11408 


IF (L5:1643 OR T-1 THEN 568 
GOTO 518 

RETURN 

REM$kz3sxx BEFEJEZES XxXEXFXK 


IF Tsi THEN éz2zg ELSE 658 
REMXx THEN AG x 

GOSUB 1298 

GOTÜ 678 

REMXx ELSE AG X 

GOSUB 1388 

REMXx IF VEG X 


RETURN 

REMgxzXXEX JÁTEKSZABALYOK EEXIER 

ÜLS 

PRINT"EGY 172X12-ES CSATAMEZOBEN KELL" 


PRINT"EGY ISMERETLEN HELYEN LEWU" 
PRINT"HAJOT ELTALALNI A CELPONT" 
PRINT" KOORDINATAINAK MEGADÁSÁVAL." 
PRINT"A PROGRAM A BECSAPODAS ES A" 
PRINT"HAJO TAVOLSAGAT KÖZLI." 
PRINT"A HAJORA LEGFELJEBB T I Z" 
PRINT" LOÖVEDEKET LOHET KI." 
RETURN 

REMXxxzXEX A HAJO HELYZETE xx4X5XE 
KXKISZRND(12) 

VISZRND(12) 

RETURN 

REMsxzxzxx LOVESSSZAM VIZSGALAT gztx3-X 
IF Ld1 THEN GOSUB 1488 

RETURN 

REMxxxXxX CSILLAG KIIRAS gxXXXx 

CLS 

M-6ó4x(12-Y2)41X2-1 

PRINT É M,"e" 

RETURN 


REMg3xz3 ERTEKELES £ 


R5INT(SüR((X2—-X1.dAZt(ÉÍTY2—-Y12 AZ) ) 


IF R-ü THEN T-i 
FOR I-—1 Tü YZz 


PRINT 
NMEXT I 

LELt1 

PRINT"A BECSAPUODAS TÁVOLSÁGA: 
PRINT"Á":L:". LOVES KÖVETKEZIK." 
RETURN 

REMSSESZX TALÁLAT EXZEXEK 

PRINT"ON ELSULLYESZTETTE AZ ELLENSEG HAJOJAT!" 
RETURN 

REMgXtXXX NEM TALALT $4XXX 
PRINT"EZ NEM SIKERULT!" 

PRINT"A HAJO A",XI5","gY1;"KODORDINATAKON ALLT!" 
RETURN 

REHxxzzXExz LÜJES HEXZEKXK 

ABZINKEYü 

IF Aöz"" THEN 14108 

IF Aöi5"P" THEN 1479 

IF Aöz"L" THEN 1518 

IF Aö—";" THEN 1558 

IF Aöz"." THEN 15908 

GOTO 1418 

REMx P BOMB 3 

IF Y2512 THEN Y2-1: GOTO 1628 
VézY2t1 

GOTO 1628 

REMg L GOMB 

IF X25-1 THEN XZ25-12: GOTO.1628 
X2:X2-1 

BOTÜ 1628 

REMxk ; GOMB 

IF XZ512-THEN X2-1: GOTO 1620 
XZ2-XZ241 

GOTO 1628 

REMg . GOMB 

IF YZ251 THEN Y25si12: GOTO 1620 


Y27-Yr2-1 
RETURN 

P 
PRINT"VEGE" 
END 


EZRET 
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PRIMO LISTÁK 


2.1 


FELADAT 


REM BÉRES BE dé 536 3E 9 36 At dé 9 3E JE 9E 4 


REM" jú 
REM" AMORi1 jaj 
REM" s". 


REM E RESÉSE RE dé 26 dé HE HE AE 96 36 96 36 36 


REMETTHH Vezérlés tetett 
GOSUB 200 
GOSUB 300 
GOSUB 500 
INPUT"Tovább ? (Igen-1, Nemz0) ";T 
IF T-1 THEN 80 
GOTO 860 
REMttttX ÉEvszám beolvasás ettrtt 
INPUT"Jelenlegi évszám: ";J 
RETURN 
REMtEEEH Amortizáció számítás fEETT 
READ B,E 
K-J-E 
PRINT K 
IF KcK5 THEN 350 
GOTO 380 
REMt Then ág " 
N:(Bt(5-K))/5 
GOTO 400 
REM" Else ág !" 
N-0.1 
REMt If vég " 
RETURN 
REM teste at Kiirás 3696 9636 9 
CLS 
PRINT" Nettó érték számítás" 
PRINT" -———--- ——-— ——- u 
PRINT: PRINT 
PRINT"Bruttó érték ". B;"eFt" 
PRINT"A beszerzés éve Es "év" 
PRINT"Életkor "o K; "év" 


580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
800 
810 
820 
830 
840 
850 
860 


IF K-5 THEN 600 


GOTO 
REM" 


630 
Then ág ?" 


PRINT"Nettó érték 


GOTO 
REM" 


650 
Else ág ! 


PRINT"Nettó érték 


REM" 


If vég " 


PRINT: PRINT 
RETURN 


REM" 
DATA 
DATA 
DATA 
DATA 
DATA 
END 


Adatok § 
2500,1982,500,1984 
3050,1984,162,1984 
520,1980,1610,1978 
3960,1979,865, 1980 
32,1976,785,1981 


" NN; "eFT" 


" N;"eFt (eszmei érték)! 


5. FELADAT 


nB3ZS50, 


n URSILRA a 


(0 
(0 


£)gvi! , 


£)gvi! 


2 ztdat(02)gvi!,bozsso, t(or)gyi! 
I EZSSPAn (OZ) GYI! neue, (OT)GVL! A JAIZSPY NINI d 


ZT 0L TsH 404 
nBSZSS9,INIUd 


o. ANIUd :I1NIUd 
tt TIRTS OJ NH sresa38 


((ZTO(TAT)/T)-T)/TA44z9 
cT/AzTA 

dátátátát SPTLUPZS J9IZSAY agar 3 
00T/4-X 

a BA JI aW3y 

O$T 0109 


u 13949[ Ap3pZOod ÁACSI) a INIUd :INIUd 
a BP U9YL WWW 
007 0109 
0ZT N3H1 0-9X JI 
XY"u :(x) GPLJEWEY,INdNI 
a BA 3I Ny 
04 0109 
ni 394891 Ap31ZOod AESIJnLNIUd :INIUd 
x ÉP UGYI W3y 
0£T 0109 
00T N3H1 0227 JI 
1"u :obazssg URSIIRA V.uINdNI 
4 SPSRALOSGZJEPV ,W3 
KELL TYYYY TET ETEL] 
3 ah39 
fh L1VWVA ah39 


4 ai 34 


BE 94 96 36 949696 E Ed 46 969464 3 


047 
0£7 
0Tz 
007 
06T 
081 
04T 
0917 
OST 
04T 
0£1 
0-T 
OIT 
00T 
06 
08 
04 
09 
0S 
04 
0£ 


07 
07 


0N3 

V INdNI 

IS" (OZ) GY LES! (OT) ag ts INIdd 
(S"049$)1NI-95 
(G"0£AS)INI:5AS 
((S"OFPUS)INI5US 

tikkr SPALLYM Bazssa data ah 39 
a 694 SNLIEJ W3y 

H 1X3N 

3" (0E)gvL AJ (OZ) AV L FH! (OT) gvL!y INIUd 
(G"04J3)INI-J 

(§"0449)1NI54) 
(S"OPJH)LNI5AH 

(G"OtU)INI-U 

94 d db db b SPALLXJ sa 38 
AI91)S595 

AHHASZAS 

dtüszűs 

rirxx SSZ6SZSSO ah 39 
49-4z-J 

AH-4:4) 

TAx3zAH 


7. FELADAT 


RE ÍM BE ÉGE GE BE 9E 36 36 dé 36 96 36 96 9E A 96 


REM" jú 
REM" MSZK 8 
REM" si 


REM SEBE GE SE GE 36 9E 36 dé 3 36 E 9 At 36 


REMfttt3 Fejadat vez. $t"HtT 
DIM K(100,3) 
GOSUB 200 
GOSUB 300 

GOTO 1050 

REMtttrX Dátum beolv. tttttt 
INPUT "Év: ";EV 

PRINT 

INPUT "Hó: ";HO 

PRINT 

INPUT "Nap: ";NA 

RETURN 

REM gt 3 me at Menü 36 36 9634 b 

CLS 

PRINT: PRINT 

PRINT" KIFIZETÉSI MŰVELETEK" 
PRINT: PRINT 

PRINT" (1) Kifizetési adatok beirása" 
PRINT 

PRINT" (2) Kimutatás készítés" 
PRINT: PRINT 

INPUT"Melyiket választja ";D 

IF D-i THEN GOSUB 500 

IF D-2 THEN GOSUB 600 

IF D-2 THEN 440 

GOTO 300 

RETURN 

REMÉttEH Kifiz. adatok ftEPT 


7CLS 


N-N- 1 

INPUT"Munkaszám: ";K(N,1) 

PRINT 

INPUT"Osszeg: ";:K(N,2) 

PRINT 

INPUT"Bizonylat sorszám: ";K(N,3) 
RETURN 


600 REM" Kimutatás vezérlés $tter 

610 GOSUB 700 

620 GOSUB 900 

630 RETURN 

700 REMttttT Rendezés €tEtHT 

710 F-0 

720 FOR I-1 TO N-1 

730 IF K(I,1)53K(I31,1) THEN 750 

740 GOTO 880 

750 REM" Then ág " 

760 SM-K(I,1) 

770 K(I,1):-K(I41,1) 

780 K(I41,1)-SM 

790 SF-K(I,2) 

800 K(I,2):K(I-r1,2) 

810 K(I41,2):-SF 

820 SB-K(I,3) 

830 K(I,3):-K(Ir1,3) 

840 K(I341,3):SB 

850 REMt If vég " 

860 F-1 

870 NEXT I 

880 IF F-i THEN 710 

890 RETURN 

900 REM"ÉttHtH Kijrás tEHTT 

910 LPRINT" NAPI KIFIZETÉSEK" 

920 LPRINTt 0 ---- -------- ú 

930 LPRINT: LPRINT 

940 LPRINT"Kelt, ";EV;". év ";HO;G". hó ";NA;". nap" 

950 LPRINT 

960 LPRINT"Munka-";TAB(10); "Kifizetett"; TAB(12); "Biz." 

970 LPRINT"szám";TAB(14); "összeg" ;TAB(12); "sorsz." 

980 LPRINT 

1000 FOR I-1 TON 

1010 LPRINT K(I,1);TAB(14);K(I,2);TAB(12);K(I,3) 
"1020 NEXT I 

1030 RETURN 

1050 END . 
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8. FELADAT 


10 REMBEREGESE GE 3E dé AE dé 96 dé 9 96 3 96 9 


20 REM" s 
30 REM" CSATA al 
40 REM" . 


50 d 28 4 kadtedtettattattettettettattettattettettettetkai 


60 REMfttHtt Csata vez. FETT 
70 GOSUB 130 

80 GOSUB 180 

90 GOSUB 500 

100 GOSUB 600 

110 GOTO 1700 

130 REMt"tItI Kezdő müveletek ftititt 
140 GOSUB 700 

150 GOSUB 800 

160 RETURN 

180 REM$""rrt Kezdő lövés tittrit 
190 PRINT: PRINT 

200 INPUT"Az 1. lövés koordinátái (X,Y,):";Xx2,yY2 
210 IF X2-i THEN 230 

220 GOTO 260 

230 REM" Then ág " 

240 PRINT"AZ X-ci nem lehet!" 
250 GOTO 200 

260 REM" If vég " 

270 IF X2512 THEN 290 

280 GOTO 320 

290 REM" Then ág " 

300 PRINT"Az X5312 nem lehet!" 
310 GOTO 200 

320 REM?" Then ág " 

330 IF Y2-ci THEN 350 

340 GOTO 380 

350 REM" Then ág ? 

360 PRINT"Az Yrki nem lehet!" 
370 GOTO 200 

380 REM" If vég " 

390 IF Y2512 THEN 410 

400 GOTO 440 

410 REM" If vég " 

420 PRINT"Az Y512 nem lehet!" 
430 GOTO 200 
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440 
450 
460 
470 
480 
500 
510 
520 
530 
540 
590 
560 


810 


620 
630 
640 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 
760 
770 
780 
800 
810 
820 
830 
840 
850 
860 
870 
900 
910 
920 
930 
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REM" If vég " 

X2-INT(X2) 

Y2-INT(Y2) 

L-1 

RETURN 

REM""ttX További lövés Sessm 
GOSUB 850 

GOSUB 900 

GOSUB 1100 

IF (L510) OR T-1 THEN 560 
GOTO 510 

RETURN 


TF TS1 THEN S2Ő7ÉLSE 650 


REM" Then ág " 
GOSUB 1200 
GOTO 670 
REM" Else ág !" 
GOSUB 1300 
REM" If vég " 
RETURN 
ese diát Játékszabályok ftttt 
L 
PRINT"Egy 12X12-es csatamezőöben kell egy" 
PRINT"ismeretlen helyen levö hajót eltalálni" 
PRINT"a célpont koordinátáinak megadásával." 
PRINT"A program a becsapódás és a hajó" 
PRINT"távolságát közli." 
PRINT"A hajókra 10 lövedéket löhet ki." 
RETURN 
REMFTtTET Hajó helyzete FERT 
RANDOM 
X1:-RND(11)-1 
Y1-RND(11)-1 
RETURN 
REMEtEtEH [övésszám vizsgálat ftttT 
IF L351 THEN GOSUB 1400 
RETURN 
REMtETtrx Csillag kijirás FtETI 
CLS 
PRINTFt (12-Y2), (X2-1), "e" 
RETURN 


1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 


1230 


REMtttNtt Ertékelés tten 
R-INT(SOR((X2-X1)725(Y2-Y1)"72)) 
IF R-0 THEN T-1 

FOR I-1 TO Y2 


PRINT 
NEXT I 
L:L-1 
PRINT"A becsapódás távolsága: ";R 
PRINTS"A";:L;". lövés következik." 
RETURN 
ksd edd 
BRTNT"On élsülíjesztette az ellenség hajóját!" 


RETURN 

REMtttTRt Nem talált $tötrrt 
PRINT"Ez nem sikerült!" 
PRINT"A hajó a";XI;",";Y1;"koordinátákon állt!" 
RETURN 

REMt$RRT Lövés FE 94 dé dt dt 

AFt- INKEYFt 

IF AFt-"" THEN 1410 

IF AFt-"0" THEN 1470 

IF AFt-"A" THEN 1510 

IF AFt-"$t" THEN 1550 

IF AFt-"5" THEN 1590 

GOTO 1410 

REMt Felfelé gomb " 

IF Y2:12 THEN Y2-1: GOTO 1620 
Y2-Y251 

GOTO 1620 

REMt Balra gomb " 

IF X2-1 THEN X2-12: GOTO 1620 
X2:-X2-1 

GOTO 1620 

REMt Jobbra gomb $tttit 

IF X2-12 THEN X2-1: GOTO 1620 
X2:-X231 

GOTO 1620 

REM?! Lefelé gomb " 

IF Y2-1 THEN Y2-12: GOTO 1620 
Y2:Y2-1 

RETURN 

PRINT" VÉ G E" 

END 
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SINCLAIR LISTÁK 


2.1 


im 

za 

34 

49 

5 

e] 

7a 

8 

98 
198 
118 
128 
za8 
218 
272A 
393 
310 
sza 
aza 
z4O 
358 
399 
37 
398 
398 
gang 
418 
ag 
518 
szű 
azü 
548 
sets] 
ma 
s57a 


FELADAT 


REM KEKREZREKEZZEEKEKE 


REM £ 
REM X AMOR 1 X 
REM 4 b. a 


REM HARRRREREEREEEKEA 

REM FAZAR VEZERLES HEKKX 

60 SUB 264 

GO SUE 398 

£0 SUB 58£ 

INPUT "TOVABBET ( IGEM-1, HEM-G: "GT 
IF Tzi THEN Gü TŰ €0 

60 TŰ 868 

REM KREAKk EVSZEAM BEÜLYASAS KEKKA 
IHPUT ".JELEMLEGI ESSZHM: ";J 
RETURN 


REM ££4£XE AMORTIZÁCIÓ SZAMITSS EKEKA 


READ B.E 

LET KzsJ-E 

IF K-ZD THEN 6Ű TO 556 
c TÜ 3984 

REM £ THEN AG Xk 

LET H-(BAC2-KIa/m 

C0 TŰ 469 

REM £ ELSE AG £ 

LET HA. 1 

REM £ IF VEG 4 


RETURH 

REM XERAKk KIIRAS KErAk 

€Ls 

PRINT " METTŰ ERTEK SZAMITHS" 
ERRE B zési zseb ZS ER Es zséss ús 
PRINT : PRINT 

PRINT "BRUTTÚ ERTEK sze" EPÚ" 
FRINT "A BESZERZES EvFo "E" EV" 
PRIHT "ELETKÜR RK." EVT 


367 


? 


taj 
§ 

1 
— 
3 
2 
a 


£ 


a 
TA ÚJ 


[/ 


KÜ ús ÚR 


HEN G0 TO 608 
ta 
EH AG £ 

RIHT "SHETTO ERTEK 

ca Tt 668 

REM £ ELSE AG B 

PRINT "NETTO ERTEK 


PRINT " 
REM k IF VEG £ 

PRINT : PRINT 

RETURM 

REH KEREK ADATUK EKEKE 
DETS 27589, 1922.5006. 15974 
DATA ZOSA, 1984, 162, 1584 
DATA 52£. 1998. 1618. 1578 
DATA 3368, 1979.,865. 1988 
LATA I2.1576.7E5.15981 
BEK 


1 
28 


5. FELADAT 


a REM AFXEZKARERKIZEKKEÁEK 
Xk 


REM X 
3a REM KK 0KRMAT X 
49 REM X £ 
58 REM KÁRFEKKRKKRKÁREEKK 


be 
79 
29 
98 
188 
119 


, 128 


134 
1498 
158 
1698 
178 


, 188 


190 
280 
218 
289 


, 240 
. 258 
260 REM 4X£:XK HK, CK, F.) SZAM. XKXXKX 


.£78 


2808 
298 
390 
318 
328 
3598 
268 


[378 


! 


230 


, 398 


I 


. 408 


418 
428 


(449 


452 
460 


478 


REM X£44k ADATBEOLY. $X44KK 

INPUT "FR KÖLCSÖN ÖSSZEGE: ";F 

IF F-(-ü THEN 60 TO 189 

GO Tü 139 

REM X THEN AG X£ 

PRINT : PRINT "CSAK POZITIV LEHET!" 
GO TO 78 

REM 4 IF VEG £k 

INPUT "KAMATLAB (Z2: "5kK 

IF K(-ü THEN 60 TO 178 

0 TO 288 

REM £ THEN AG 4 

PRINT : PRINT "CSAK POZITIV LEHET!" 
0 TO 148 

REM £ IF VEG £ 

LET KzK-160 

REM 44444 RESZLET SZAMITAS X£X4KXK 
LET K1-K-12 

LET R-FXKI/C(1-Ci-t1tK19712)) 


PRINT : PRINT 
PRINT "RESZLET": TAB 3: "KAMAT":TAB 16; "VISSZA" :TAB 24; "KÖLCSÖN" 
PRINT "OSSZEG": TAB 85 "OSSZEG":TRB 16:"FIZ. 0.";TAB 24; "OSSZEG" 
PRIHT 
LET SR-8: LET 5K-ü: LET SC-ü 
REM £ fLIKLUS KEZDET 4 
FOR Hzi TÜ 12 
LET HK-FAKIi 
LET CK-R-HK 
LET F-F-üK 
REM KKK£k OSSZEGZES FErAK 
LET SR5SRtR 
LET 5K-SKtHK 
LET SC5SCtÜK 
REM XXXAZ KIIRAS FKKKA 
LET RzINT g5r§.5 
LÉT HKZINT HKtG.5 
LET CKzINT CKtö.5 
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7. FELADAT 


REM agtletlásásáálálatá 


REH 

REM £ MSzZK A 
REM £ :£ 
REM KEXEKKZKKEEEREKE 


REM ££Z4£4£ FELADAT VEZ. FEXKK 
LET N-8 

DIM KCIG8.3) 

G0 SUB 296 

60 SUB 398 

GO TO 1858 

REM $ExAK DATUM BEOLY. 4F$4EAK 
INPUT "EV: ";EV 


PRINT 

INPUT "HA: ";:HO 

PRINT 

INPUT "HAP: "HA 

RETURN 

REM $xi44 MENU X4£KK 

CS 

PRINT : PRIKT 

PRINT " KIFIZETESI MŰVELETEK" 
PRINT : PRINT 


PRINT " (15 KIFIZETESI ADRTÜK BEIRASA" 


PRINT " €2) KIMUTATAS KESZIÍTES" 
PRINT : PRINT 

INPUT "MELYIKET VALASZTJA ? ";Db 
IF b:-1 THEN GO SUB 5009 

IF DsZ THEN 60 SUB 609 

IF D:2 THEN G0 TO 448 

G0 TO 398 

RETURN 

REH £x443 KIFIZ. ADATOK XKZKK 
CLS 

LET N-N4i 

INFUT "MUNKASZAM: "5KKN.17 
FRINT 

INPUT "OSSZEG: "5K(N.22 

PRINT 

INPUT "BIZONYLAT SORSZAM: ":KÖN.32 
RETURN 
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623 REM £AEKA KIMUTATAS VEZ. KEREK 

e193 40 SUB 798 . 

ézy GÜ SUB 598 

c38 RETURN m8 

7TUOÖGRENM XAKXi£k REMDEZES EEHKAK 

7A5 LET SM-G: LET SF-ü: LET 58-48 

719 LET F-3 

v2A FOR IÍzi TO H-i 

72372 IF KZI.155-KKI5t1.15 THEN €2 TŐ 758 

74A C0 Tü 884 

"52 REM 4 THEM AS 4 

758 LET SHE-KEI.í; 

ra LET KÜI.19-kéIlrt.1i: 

788 LET KEI41.10-SM 

LET SFskKkTI.2? 

LET KEI. 2őzkélri.27 

LET KZI61.2őzsF 

LET SB5zK(I.3) 

LET KeI.3oskiI51.235 

VET KéI-1.35-5 

REM 4 IF VEG £ 

LET Fzíi 

HEXT I 

IF Fzi THEM €ű TŰ 719 

PETURH 

BZM KEREK KIIRAS EKEKA 

LERIHT " HAPI KIFIZETESEK" 

tERINMT zött ENNE LANE ÉRY ERNEK VETÉST MÉNE KÉRÉS u 

Lt PRIHT 

EPRIHT 

LPRINT "KELT. SE". EV" HOS. HO "HR". MAP" 
LERIHT ; 

LPETNT "MEHKA- "TAR 18 "KIFIZETETT": TAB 25:" BIZ." 
za LPRIWT "SZAM" TAB 19:" OSSZEG": TAR 255 "SŰRSZ. TT 
a78 LFRIHT 

FEgz Izi Tf H 

LERIHT Ki I.1i0. TAR 1E:ET I. 20 TAB ZS KEI.3I 
HEXT 1 

ME TIRH 

REF 


4 
he) 
jen) 


ex len Hl kot Bő elt av ll kon E tév ETC Ti he 


iát tál ore 0 4 Che da ÉM 1 
jére HL DOC évi Pen BE Loc EL Kor EL ER Bv TEN ÉT hö 


hto ad ae en eü en ea e e a een Ő 


Ú3 Én me ÍZ LŐ ég 


ua Li) fi. 


1 
ÜZ ú 


tám aa ta a 


a 
nat 


zn éD) ém e 
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8. FELADAT 


18 REM KAKZKKZXEKKKEKEKEKK 
22 REM £ £ 

39 REM £ CSATA x 

44 REM x X 

58 REM XXKXEKERRKEKÍZKEKEKEK 

é6 REM k CSATA VEZ. XKXXKXK 

és LET T:€§ 

7ú G0 SUB 138 

2 69 SUB 188 

78 €0 SUB 589 

198 G0 SUB €€Z 

119 Gf TŰ 1790 

138 REM XXAZK4k KEZDŐ MUV. XAZKXKK 
149 69 SUB 784 

150 C0 SUB 9829 

162 RETURN 

1988 REM XAXKK KEZDD LOVES KAKKA 
198 PRINT : PRINT 

ző INPUT "Az slse loves kocrdíinatai CX.72 ":X2.Y2 
219 IF X2-(1i THEN 60 TO 238 
229 G0 TO 268 

230 REM £ THEN AC X 

249 PRINT "AZ XCI HEM LEHET!" 
zi £0 TO 2940 

260 jeg X IF VEG £ 

27a IF A2518 THEM §0 TŰ 299 
z3a 60 Tü 3298 

2390 REM k THEN AG 4 

398 PRIHT "RZ X518 NEM LEHET!" 
319 G0 Tü 299 
328 REM £ IF VEG X 

234 IF v2-(1 THEN 60 TO 35a 
248 fü TI 389 

320 REM 4 THEN AL £ 

362 PRINT "AZ Y-Ci NEM LEHET!" 
372 GO TA 228 

389 REM £ IF VES 4 

394 IF Y25198 THEN 6ü TO 418 
aaa GO TI 449 

4138 REM £ IF VEG X 

428 FRINT "AZ V5í8 HEM LEHET!" 
429 C€0 TO 288 
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Tán nél 


gi Én Ét 


RETURN 
REM ££4EkK BEFEJEZES £ERAXK 


IF Tsi THEH G0 Tú 638 

tü TO 664 

REM x THIN AGf X 

c SUE i2083 

CA Tü G8G 

REM £ ELSE AD Ok 

22 Sus í784 

KEM 4 IF VEG X 

KBETURH 

REM FREEZE JATEKSZEBELYŰK EAAKA 

ÜLS 

PRINT "Es 18X13-az nmezoben kell e934y" 
PRINT "ismeretien heluyzn lva hajdot" 
FRIHT "zítalaimi a celpunt, kooradina-" 
PFRIMT "tainsk megadasaval." 

FS1IHT 

FZIHT "A program a beczapudaz ez a hajo" 
FRSINT "travolszzaat közli." 


FRIHT 


PRIHT "B hajgokra legfzliúcbb 172 lovede-—t 
FRIRHT Siet o loket ki." 


RETURH 

REM EEAAK HAJO HELYZETE KEZEK 
RANDDMÍZE 

LET miziítINT (RHDFRIG, 

LET víizíitIHT (RHDZÍBI 

RETURH 


328 
958 
e72 
998 
918 
9ze 
978 


REM XXZ££ LÖVESSZAM VIZSGALAT EEZ4A 
IF L71 THEH 60 SUB 1498 

RETURN 

REM FERRE CSILLAG KIIRAS E£KEK 

üL5 

PRIHT AT 19-Y2.AZ271:"£" 

RETURN 


1189-REM 4£XAK ERTEKELES £EARAK 


ií119 
1128 
1134 
1148 
1159 
1168 
1179 
1198 
11998 
1289 
1210 
1213 
1278 
13898 
1312 
1328 
1339 
1498 
1419 
1428 
1438 
1dág 
1429 
1468 
1474 
1499 
1498 
1596 
1510 
1028 
1220 
1248 
1258 
i268 


LET RzINT (388 (ABS (X2-x1 I 24tAB3S (Y2-YIIMZá3 


IF R-fg THEM LET T-i 

FOR [5-1 TO Y2 

PRINT 

HEXT I 

LET L:i6i 

PRINT "A becsaPodas tavolsaga: ":R 
PRINT "A ";£:". toves kovetkezik." 
RETURN 

REM AXKAKA TÖLBALRAT HZXKE 


PRINT "fm elsuligsesztette az ellersez" 


PSINT "hajojat H" 

RETURH 

REM XXXKA HEM TALALT FEZAXK 
PRINT "Ez nem sikerult!" 


PRINT "A haio 2 "ixis".":ui5;" koordinatakan allt!" 


RETURN 
REM £Z£Z4£k LJVES KEREKE 
IF IHKEYsZ"" THEN GÜ TO 1419 
IF INKEYVSZ"I" THEN 60 TO 1479 
IF IMKEYV$Z".4" THEN GD TO 1519 
IF INKEYVEZ"K" THEH 60 Tf? 1558 
IF IMKEY$z-"M" THEH £0 TŰ 1598 
LO TO 1419 
REM £ I GOMB X 
IF Y2-15 THEN LET Yzzi: 60 TO 1629 
LET Y2-rr2tri 
60 TÜ 1628 
REM £ J GUMB 4 
IF /ézi THEH LET /2-i12: 60 TŰ 16zg 
LET Z2-/2-1 : 
eü TO 1629 
REM X£ K COMB OZ 
IF 27-18 THEN LET AZzi: £ü TŰ Jézm 
kezieti 
TO 1629 
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REM X M GOMB 4 
IF Yzzi THEN 
LET Y27-r2-1 
RETURN 

PRIHT O§ gy 
REM 


LET V2:18: 


TÁRGYMUTATÓ 


A 


adat 52 
adatállomány 229 
— feldolgozása 230, 231, 241 
— kiírása 238 
— létrehozása  230,231, 232 
— lezárása 230, 236, 250 
— logikai hivatkozási száma 232, 236, 241 
— másolása 250 
— megnyitása  230,231 
— módosítása 230, 231, 242 
— névváltoztatása 242, 244, 250 
— sraírás 231 
— törlése  242,243,250 
adatellenőrzés — 159 
adatkezelés 170 
adatmodul  53,54,55 
adattárolás — 171,185 
algoritmus  52,57 
automatikus sorszámozás (AUTO parancs) , 75 


B 


BASIC jelkészlet 
— Commodore—64 32 
— HT—1080Z 34 
— PRIMO 34 
— Sinclair 37 
bájt 29, 30, 184, 258 
bemeneti adat  51,52,60 
billentyűzet  31,32 
— Commodore—64 32 
— HT—1080Z 33 
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— PRIMO 34 
— Sinclair 36 
bit 258 


c 


CASE szerkezet . 102—105, 126, 139 ,216, 245 

ciklus 64, 149—154, 160, 175, 176, 192, 204, 235, 241 
— elöltesztelő 65, 152 
— hátultesztelő 65, 152, 192, 204, 242 

ciklus-előkészítés 151 

ciklusfeltétel — 151, 159 

ciklusmag 151, 159,175, 204 

ciklusváltozó — 151, 159 

cím (tárbeli) 30 

CLOAD parancs , 43 

CLOAD3-—1 parancs 43 

CLOSE utasítás — 194,232,242,244 

CLR utasítás  224,247 

CONT parancs 81 

CSAVEH—1 parancs 42 


D 


DATA utasítás 119, 120, 123, 136 
DEF FN utasítás 156 
DIM utasítás 173,175, 179 


E 


egész értékű változó 82 
egyed 169 

egyedi adatok — 169 
egykijáratúság — 60,97 
egymásba ágyazott ciklus 192 
elágazás  63,93 
eljárásmodul  53,55 
END utasítás 87 

érték 169 

értékadás — 17,84 
eredménykiírás 86 
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F 


feladat elemzése 57 
feldolgozás  51,61, 83, 172 
felhasználói függvények — 156 
feltételes elágazás 63 
feltételváltozó 94 
felülről lefelé haladás 57 
folt 261 
— beállítás  261,265,274.275 
— bekapcsolása  261,265, 275 
— definiálás  260,265,266 
— kikapcsolása 261 
— mutató  260,266 
— rajzolás  257—263 
— színbeállítás  261,265,273 
folyamatábra 61 
FOR, STEP, NEXT utasítás 154, 159, 160, 176, 178, 192, 279 
főprogram  118,225 
függvények  155—157 


G 


GET utasítás 203 
gépelés javítása 32 
— Commodore—64 33 
— HT—1080Z 34 
— PRIMO 35 
— Sinclair 37 
GOSUB utasítás 116 
GOTO utasítá  96,116 
gyűjtő (összegezéshez) — 159,176 


H 


helyőr  13,14,15,16 
helyőrmozgatás  211,219 


IF utasítás  94,130 
IF THEN szerkezet , 97—99 
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IF THEN ELSE szerkezet ,. 99,109 

IF THEN ELSE utasítás . 96, 101, 102, 217 
index  172,176 

INKEY $ utasítás . 203 

INPUT utasítás 105 

INPUT zt utasítás 241 

INT függvény 156 


J 


jelkészlet (BASIC) 
— Commodore—64 32 
— HT—1080Z 34 
— PRIMO 34 
— Sinclair 37 


K 


karakter 29 
képernyőtörlés 32, 123, 144 
— Commodore—64 32 
— HT—10O80Z 34 

— PRIMO 35 

— Sinclair 37 
kerekítés 157 
kiírásleállítás 145 

kiíró 30 

kimenetiadat  51,52,61 
kódolás  73—79 
könyvtár 238 
közvetlenmód  80,81 
külső specifikáció 60 
külsőtároló 38 


L 


lebegőpontos forma 86 

lemez tartalomjegyzéke 42 

LET utasítás  17,84, 124 

LIST parancs  42,77 

LLIST parancs 79 

LOAD parancs  40,41,42,44,45, 46, 223, 224, 225 
LPRINT utasítás 195 
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M 


mágneslemez — 30, 37, 38 

— Commodore—64  40,42 
magnókazetta  30,37,38 

— Commodore—64  38—40 

— HT—108OZ  42—43 

— PRIMO 43-45 

— Sinclair 45—46 
menü 136, 139, 184, 187, 225, 234, 245 
mező  229,232,250 
minimális eszközkészlet 13 
modul 53 

— belső tervezése 60 
könyvtár 60 
tervezés 59-65 

— teszt 79 
moduláris programozás 53 
modulok közötti kapcsolat 59 
műveletek közötti prioritás 85 


N 

NEW parancs  21,22,29 

NEXT utasítás (lásd a FOR, NEXT utasításnál) 
numerikus változó 82 

Oo 

ON GOTO utasítás 103 

OPEN utasítás  192,231,236,241,243 
operációs rendszer 46, 47 

Öö 


összetartozó adatok  169,170,171,172 


P 


paraméterezés 135 
parancscsatorna  243,250 
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PEEK függvény 260 
POKE utasítás . 258,261,277,279 
PRINT utasítás 86, 162,211,213,214 
PRINT; utasítás 192, 194,232,236, 238, 243 
program 17, 18, 52 

— befejezés 87 

— dokumentáció  76,77 

— javítás 89, 298, 300 

— kipróbálása  79—81 

— leállítása 33, 34,35 

— listázás  77—79,80 

— módosítás 145 

— tervezés  59,60 

— törlése 21 

— végrehajtása 81 
programrendszer 224 


R 


RANDOM utasítás , 210 
RANDOMIZE utasítás , 210 
READ utasítás  119,120 123 
rekord  229,232,241,248, 250 
relációk 95 

REM utasítás 76 

RENAME parancs 244 

rendezés 190—192 

RETURN utasítás (lásd a GOSUB utasításnál) 
RND (0) függvény  — 201,209,210 
RUN parancs  18,40 


S 


SAVE parancs 38, 39,41,43,45, 145 
SCRATCHO parancs 244 

SIN függvény 155 

sorzáró billentyű  16,17 

ST állapotbájt  242,248 

STEP utasítás (lásd a FOR, STEP, NEXT utasításnál) 
STOP utasítás 80 


sz 


számlált menetű ciklus 154 
szekvencia 63 


szekvenciális adatállomány 231 

szintaktikai hiba 80, 89 

szöveges konstans 124 

szöveges változók — 124, 130 

szubrutin  116—119,123, 135, 139, 145, 185, 273 


T 


TAB függvény 164, 194, 195 

tá 29 

TEST parancs 44 

tesztelés 79—81 

típusprogram 59 

tizedespont 32 

több programos szerkezetek  223—225 
többszörös utasítás 74 

tömb  171,173,186, 188 

tulajdonság 169 


U 


utasítás  46,52 
— felépítése 73 
— kulcsszó  73,76 
— sorszám  73,74,75 
— tárgya 73,76 
utasítássor 19 
— javítása  32,33,34,35,37 
— módosítása  24,89 
— törlése  - 20,75 


v 


VALIDATE parancs 252 
változó  82,83 

változónév  82,83 

változó tartalom törlése . 224 
vektor . 171,174,176 
véletlenszám-előállítás  — 201 
VERIFY parancs  39,41,45 
vezérlőmodul  53,54,115 
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